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USE MENSAGENS CLARAS 



RQTINAS DE PREVENCAO 

DE ERROS 

EXCLUA VALORES INCORRETOS 



IMDICACAO DE ERROS 



Nem sempre 6 facJI separar o joio do 
trigo, quando se trata de 
progratna^ao: programas inteiramente 
corretos podem apresentar 
erros inesperados. Aprenda a evit^-los. 



A palavra-chave 6 uso. Nao importa 
se o programa e considerado bom de urn 
ponto de vista estritamente tecnico: se 
ele se mostrar compUcado, aJgu^m vai 
fatalmente acabar tendo dificuldades e 
cometendo erros. 

O segredo para contornar esse pro- 
blema e fazer programas bem ordena- 
dos, de forma que todos os seus m6du- 
los sejam claros no que se refere k fun- 
;ao e ao modo de uso. 

Isso significa oferecer muitas infor- 
mafoes e telas explicativas e proteger 



adequadamente tanto o programa quan- 
to o usuirio de erros simples. 

O ideal seria colocar no programa 
protegoes contra todos os erros possf- 
veis. Teclas pressionadas equivocada- 
mente, entradas irregulares, valores ab- 
surdos — tudo, enfim, que possa atra- 
palhar a correta execufao de um pro- 
grama deve ser evitado. Para isso, & 
necessdrio que se incorporem vdirios ti- 
pos de rotinas de verifica?ao de erros e 
valida^ao de entradas ao programa. 
Muitos dos programas mostrados por 
INPUT at^ momento fazem uso des- 
ses ajttficios. 



MENSAGENS 



Mensagens precisas sao muito impor- 
tanles para ajudar o usuirio a com- 
preender de que maneira deve respon- 



der quando apresentado, por exemplo, 
a um menu de opi;6es. 

Suponhamos, por exemplo, um me- 
nu que mostre as seguintes opgSes, tipi- 
cas de um programa que manipula um 
banco de dados: 

1. Criar um novo registro. 

2. Alterar um registro existente. 

3. Carregar um arquivo, 

4. Gravar um arquivo. 

Se for usada uma mensagem do tipo 
"Selecione uma op<;ao;" ou "Fa?a sua 
escolha:", o usuario ficara em diivida 
sobre o que fazer. Deve dar entrada ao 
ntimero da opgao ou digitar uma ou 
mais tetras do nome da opt^ao? 

Certamente, uma mensagem mais ade- 
quada seria "Indique a escolha (1-4)" ou 
"Tecle 1-4 para fazer sua opfao". 

Esse tipo de indica? So deve ser feito 



A 



1. CRIAR NOVO RE9STR0 

2. ALTERAR REGISTRO 
EXISTEMTE 

3. CARREGAR ARQUIVO 
A. GRAVAR ARQUIVO 

INPIC^jESC0LHA(1-4) 




] 




tambem em perguntas que exijam uma 
resposta simples do genero sim ou nao. 
Assim, em vez de usar alguma coisa 
do tipo "Tenia novamente?" — onde 
"sim" pode ser indicado por uma tecta 
nao especifica, ou peio acionamento do 
botao de disparo do joystick, ou teclan- 
do-se S — , especifique as possibilidades: 
"Pressione o botao de disparo para jo- 
gar novamente", ou "Tenta novamen- 
te? (S/N)*'. Estas sao formas muito 
mais diretas e claras de proceder. 

Mesmo a mensagem "Pressione qual- 
quer tecla para continuar" pode causar 
confusao. Vale a pena prepar^-la a fira 
de evitar que alguem queira pressionar 
algocomo <BREAK> ou <STOP> 
ou ainda < ESCAPE >, correndo, as- 
sim, o risco de terminar o programa. 
Por exemplo, nenhum problema pode 
acontecer com esta mensagem: "Pres- 
sione a barra de espagos para con- 
tinuar". 

Em aJguns tipos de computador, a te- 
cla a ser pressionada pode ser evidencia- 
da por meio do caractere invertido na 
mensagem. 

Outra boa opi;ao (que e tambem uma 
excelente tecnica de programa), nao im- 
porta a especie de mensagem, e desati- 
var qualquer tecia que possa atrapalhar 
ou interrompc" a execugao do progra- 
ma (isso pode ser feito com o emprego 
de rotinas que excluam todas as entra- 
das impossiveis). 

Para recapitular, ou mesmo para 
uma simpJes resposta "sim" ou "nao", 



AND ASO'N" THEN 



pode-se usar aigo como: 



90 LET AS-INKEy$ 
92 IF A$="" THEN GOTO 90 
95 IF ASO'S" AND ASO-N" 
THEN GOTO 90 

aafffi 

90 AS-INKEYS 
95 IF A$<>*S" 
90 

[BE] 

10 GET A$ 

20 IF AS<>"S' 

GOTO 10 

Por outro lado, rotinas bem mais so- 
fisticadas podem ser usadas para inva- 
lidar a entrada de grupos de valores. 

Outra maneira de lornar as coisas 
mais f^ceis para o usuirio 6 restringir a 
quantidade de dados a serem digitados. 
Por exemplo: se for suficiente pressio- 
nar apenas uma teda, entao prepare o 
programa de acordo com essa possibili- 
dade, E, para evitar qualquer confusao, 
utilize semprc o mesmo tipo de mensa- 
gem e resposta ao longo de um progra- 
ma qomandado por menus. Assim, se a 
selegao da opgao do menu de abertura 
for feita pela teclagem de um numero, 
tende a usar o mesmo sistema em todos 
OS outros menus. 



AND ASO'N" THEN 



Da mesma Torraa, empregue sempre 
o mesmo codigo para cada menu ou lis- 
ta de op9oes. Se a terceira opcao for 
"GRAVAR" em um ponto e "SAIR 
DO PROGRAMA" em outro, alguem 
pode nao ficar muito satisfeito com o 
seu programa. 

Essa regra deve tambem ser aplicada 
quando a entrada de dados for necessa- 
ria (particularmente, quando houver 
uma longa seqtlencia). Quando os da- 
dos forem restritos a um pequeno gru- 
po e tiverem um padrao simples, pode- 
se usar uma mensagem multipia. Um 
exemplo de dados desse tipo e um ar- 
quivo de nomes e endere^os, no qual ca- 
da nome ^ seguido de quatro linhas de 
endereipo e um numero de telefone. 

Por outro lado, e necessario tomar 
cuidado com coisas mais complexas, co- 
mo um arquivo de cadastro de clientes, 
onde M pouca seroelhanga entre os da- 
dos, e o numero de entradas muda de 
registro para registro. Alguns campos 
podem mesmo ficar vazios. 

Uma maneira de limitar o numero de 
erros, neste caso, e fazer uma divisao da 
entrada de dados, por grupos ou indi- 
vidualmente. Assim, pode-se ter apenas 
uma mensagem para nome e endere?o 
e outra para cada detalhe especifico que 
vier depois. 

Monte as mensagens para que elas 
apare^am, uma de cada vez, ou em di- 
ferenies cores, ou (pelo menos) bem es- 
panadas umas das outras. Limpar a te- 
la ap6s cada s^rie de entradas e muito 



mais eficiente em termos est^ticos do 
que deixar a tela tr rodando para cima 
(scroll) indefinidamente. 

Em atguns tipos de programa uma 
entrada nao usual pode chamar uma 
sub-rotina particular. Assim, em um ar- 
quivo de dados, pode ser requertda uma 
informafao adicional para determina- 
dos tipos de entrada. Nesse momento, 
se o usuirio, razoavelmente familiariza- 
do com a seqiiencia normal na qual os 
dados sao entrados, nao notar a nova 
s6rie de entrada de dados, pode come- 
ter diversos tipos de erro. 

Nesses casos, sao necessarias algumas 
rotinas de detec^ao de erros; mas 6 im- 
portante tambem deixar claro para o 
usudrio que os dados requeridos muda- 
ram. Isso pode ser feito por meio de 
uma mensagem piscando ou um video 
inverse, ou mesmo de algum tipo de avi- 
so sonoro, como um bipe, se o seu com- 
putador puder emitir sons. 



DETECCAO DE ERROS 



A maneira mais fAcil de evitar que o 
programa incorpore erros e dar ao usu^- 
rio a possibilidade de aceitar ou rejeitar 
OS dados jA digiiados. Isso pode ser fei- 
to com o auxflio de uma mensagem do 
tipo: "OS DADOS ESTAO CORRE- 
TOS? (S/N)". Neste caso, se voce pres- 
sionar a tecla N provocari o reinicio da 
rotina de entrada de dados. Mas isso s6 
ser^ necessirio se uma grande quantida- 
de de dados for manipulada. 

Se voce pretende incorporar a um 
programa uma rotina de confirmatjao 
dos dados, junte as entradas em grupos; 
desse modo, o programa ficara mais (i- 
cil de operar, evitando a repetifio da 
confirmai^ao a cada entrada. 

No entanto, apesar de rotinas desse 
tipo serem eficazes no combate aos er- 
ros, OS programas tem que ser protegi- 
dos contra entradas inadequadas. 

Por exemplo, como evitar que letras 
e niimeros sejam colocados juntos on- 
de somente se requer um desses tipos de 
informa^ao (ou letra ou mimero)? Deve- 
se sempre antecipar possibilidades de er- 
ro como esta quando se estd montando 
uma rotina. 



LIMITES DE TAMANHO 



Na maioria dos programas de contro- 
le de arquivos, o tamanho das entradas 
tem um limite miximo, seja em mime- 
ro de caracteres, seja em valor num^ri- 
co. Um programa que imprima etique- 
tas, por exemplo, tem os seus dados res- 
tringidos pelo tamanho de cada etique- 



ta. Afinal, nao tem sentido fazeradigi- 
ta?ao de um endere^o de 25 ou de trin- 
ta caracteres se a entrada dispuser de es- 
pa^o para apenas vinte. 

Podemos usar mensagens ou mostrar 
o limite da entrada com indicadores co- 
mo caracteres invertidos ou quajquer 
outro efeito visual que deixc ctaro qua! 
e o limite m^mo aceitavel. 

Ainda assim, rotinas adicionais de- 
vem ser usadas para invalidar entradas 
que excedam o mdximo. Em alguns ca- 
sos, pode-se truncar o dado no tamanho 
certo e deixar para a rotina de confir- 
ma?ao a tarefa de verificar se o dado se- 
vi aceito ou nao. Na maioria das vezes, 
por^ra, 6 melhor recomefar a rotina de 
entrada no ponto onde houve erro, colo- 
cando uma mensagem como "ENTRA- 
DA MUITO LONGA! DIGITE NOVA- 
iVIENTE. " ou qualquer coisa parecida. 

Outra boa razao para se limitar o ta- 
manho das entradas e economizar me- 
m6ria. Afinal, nao hi sentido, por 
exemplo, em usar vinte ou mais carac- 
teres para o c6digo de enderegamento 
postal, quando este nunca ocupa mais 
de cinco. Procure diminuir o tamanho 
dos campos tanto quanto possivel para 
economizar mem<3ria, especiatmente no 
caso de programas de arquivo. 



VALORES INCORRETOS 



Estabelecer timites e iraportante tam- 
bem por outras razoes, particularmen- 
te em programas que fazem uso de da- 
dos num^ricos. Suponhamos, por exem- 
plo, que o programa pede tres niimeros 
(ou os lie da memdria), e divide a soma 
dos dois primeiros pelo terceiro. Um pe- 
queno erro de digitacao pode colocar 
um no lugar de um 9 ou fazer com que 
o valor aparega como resultado de ou- 
tra opera?ao. Nesse caso, a nao ser que 
o programa esteja protegido contra es- 
se tipo de erro, o resultado sera uma 
mensagem "DIVISAO POR ZERO" e 
o termino abrupto do programa. 

Num caso como o nosso, a prote?ao 
exigida 6 minima, visto que uma simples 
rotina de verifica^ao de entradas do te- 
clado e suficiente para restringir entra- 
das inoportunas. 

Mas, no caso de c^culos "intemos", 
onde ^ possivel gerar um 0, devemos uti- 
lizar rotinas especificas. Este e um caso 
em que e preciso prever o pior. Assim, 
conv^m construir uma rotina com o uso 
de operadores relacionais (que serao 
abordados mais adiante, em outra li- 
9ao). Podemos usar alguma coisa assim: 





IF A=0 THEM GOTO 10000 

A linha 10000 sera entao o inicio de 
uma roiina que poderd ajustar o valor 
para aJgo diferente de (mas aceit^vel 
pelo programa) ou avisar o usudrio de 
que urn cilculo impossivel estd para 
acontecer. Neste ultimo caso, o progra- 
ma sera redirecionado para a rotina de 
entrada de dados para que se escolha urn 
valor altcrnativo. 

Uma gama especffica de valores po- 
de ser determinada usando-se simples- 
mente aigo como o familiar: 

IF N>100 OR N<1 THEN. . . 

No caso de ser digitado um valor fora 

da faixa, essa instrucao devolvera a exe- 

cu?ao para o micio da rotina de entrada. 

Qualquer que seja o seu procedimen- 

to dentro do programa, o usuario deve 

ser avisado sobre qual ^ a faixa aceitd- 

vel de dados e, se algum erro ocorrer, 

I ele deve ser informado com uma men- 

[ sagem adequada. 



Desta maneira, ele saberS como pro- 
ceder. Isso tudo pode ficar em uma sub- 
rotjna acessada s6 em caso de neces- 
sidade. 



INDICACAO DE ERROS 



Se voce der ao usu^o instruQSes Cla- 
ras de como proceder a cada vez que ele 
for confrontado com uma emrada de 
dados, uma grande parte dos erros ser^ 
evitada. No emanto, quando algum er- 
ro ocorrer, deve-se informar exatamen- 
te a origem do problema para que ele 
nio se repita. 

Esse procedimento exige um conjun- 
to de mensagens feitas especialmente pa- 
ra cada situacao (nao confundir com as 
mensagens de erro do computador). Es- 
tas, por sua vez, podem ser definidas e 
colocadas em uma sub-rotina especial 
que sd deve ser chamada quando acon- 
tecer algum problema. 

Essas rotinas sao normalmente usa- 
das para tndicar valores fora dos limi- 



DETECTE ERROS AUTO MAT! CAM EN TE 

Uma das formas de se evitar erros 
em um programa consists em equipd- 
lo com dispositivos de detec^ao. Esses 
dispositivos funcionam no sentido de 
desviar o fluxo do programa, enviando-a 
a rotinas que corrigem a faiha ou pre- 
vinem o usuario de sua ocorr§ncia. 

Para isso, sao necessirias instru- 
pdes especiais. Os micros das linhas 
TRS-80, TRS-Color, Apple, TK-2000 e 
MSK, por exempio, dispoem do pode- 
roso comando de desvio ON ERROR 
GOSUB... Este deve ser colocado em 
um ponto do programa anterior ao blo- 
co em que se deseja detectar erros de 
execu^io. Normalmente, ele 6 digitado 
no comego do programa. Sua fungSo 
consiste em preparer o computador pa- 
ra "saltar" para a linha indicada ap6s 
o GOSUB, sempre que ocorrer um er- 
ro. programador deve entao escrever 
uma rotina (comegando na linha indica- 
da) que identifique o erro e adote as 
medidas pertinentes. Para isso, existem 
as seguintes instrupoes suptementares: 

- Fun^So ERR: retorna numero de c6- 
digo do erro cometido. 

- Funpao ERL: retorna o numero da li- 
nha onde ocorreu a falha. 

- InstrugSo RESUME: retorna a rotina 
de tratamento do erro para um ponto 
imediatamente ap6s ao da ocorr^ncia 
desse erro. 

Os micros citados acima contam 
tambSm com o comando ERROR n, que 
provoca uma indica^ao de erro num 
ponto do programa (n 6 o numero do 
c6digo), Esse comando testa a instru- 
pao ON ERROR GOSUB e a rotina de 
tratamento de erros. 



tes, duplicacao de nomes de um campo- 
chave de um arquivo de dados, ou ain- 
da entradas incorretas, seja pelo tama- 
nho excessive, seja pelo uso incorreto de 
caracteres. Assim, 6 possivel criar men- 
sagens para quaisquer tipos de erros em 
um programa. 

Uma matriz e uma variivel indicado- 
ra sao suficientes para definir um certo 
numero de mensagens e fazer com que 
o computador escotha a que e adequa- 
da para a situacao, ap6s identificar o er- 
ro ocorrido. 

A matriz para tais mensagens deve ser 
dimensionada logo no inicio do progra- 
ma, como parte dos procedimentos de , 



inicializa^ao. Ela deve ser aju5tada de 
tempos em tempos de modo a incluir no- 
vas mensagens prevenindo erros que 
possam vir a ocorrer. Desta maneira, se 
voce resolver usar um conjunto de no- 
ve mensagens de erro, este poderia ser 
um exemplo: 



10 DIM eS{9,20): FOB z=l TO 9 

: READ eS(z) : NEXT z 

20 DATA "Dado muiLo Jongo!"." 

digi tacao! " 

"Senha err add ! " , "Nao 



Erro de 

22 DATA 

conf ere) " 

24 DATA "Introduza novamente 

".'■Nao toque!" 

26 DATA "Preasione (s)iin 

n) ao ! " , "Somente numeroa! 

nentc! ler.raa!" 



oil ( 
,"So 



LOOO l.Rt aS-"": LET ein=0 : INPUT 
aS 

]010 IF LE,N aS>2'i THEN LET eir = 
] 

iOJO JF a$<>"cre.<iita" THEN LET 

em=3 
1010 IF 33='")" OR aS'"'?" THEN 
LET eiii = 4 

lOin IF aS="" THEN LET em=5 
1010 IF aS=" " THEN LET cm^t 
1010 IF a$<>"s" AND a$<>"rr' THE 
N LET eiti-; 

1010 IF a$<"0" OR a5>"9" THEM 
LET ei!i = 8 

lOlO !F a$<"a" OE aS>"z" THEN 
LET pni = 9 

1010 FOR z=l TO LEN a$: IF aS(z 
}-'"0" THEN LET eni=2 
1015 NEXT z 



P^^HIE] 



DDr)^[2][^ 



10 DIM EMS (9) r FOB Z»l TO 9 : HEAD 

EMS(Z) :NEXT Z 
20 DATA "DADO HLflTO LONGO!","ER 
RO DE DIGITAGAO! " 
22 DATA "SENHA ERBADA J " , "NAO CO 
NFEHE!" 

24 DATA " REINTRODUZA OS DADOS! 
"."NAO TOQUE! " 

26 DATA "PRESSIONE (S) IM OU (N) 
AO!", "SOMENTE NUMEK03! " , "SOMENT 
E LETHAS ! " 

Obviamente, vocS escolherd mensa- 
gens adequadas as condifocs do seu pro- 
grama. Assim, mais ^ frente no progra- 
ma, a cada entrada de dados, pode ser 
feita a seguinie verificagao: 



1000 
1010 

1010 

1010 

M=4 

1010 

1010 

1010 

N EM- 

1010 

M-e 

1010 
M-9 
1010 
CAS.Z 

1015 



EM-0: INPUT AS 
IF LENfASL^aS THEN EM-1 
IF AS<>"CaEDIT0" THEN EM= 3 
IF AS='"5" OH AS="9" THEN E 

IF AS="" THEN EM=5 

IE A3=" " THEN EM^e 

IF AS<>"S" AND AS<>"N" THE 

7 

IF AS<"0" oa AS>"9" THEN E 

IF AS<"A" OR AS>"Z" THEN E 

FOR Z-1 TO LEN(A$):IF M1D3 
.l)-"0" THEN EM=2 
NEXT Z 



Observe que a linha 1010 e opciona!, 
OU seja, voce pode escolhe-la ou n5o, de- 
pendendo da situa?ao. Apenas a ultima 
op^ao utiliza uma linha adicional, a 
1015. Atenpao para a quinta opfao, que 
funciona apenas no TRS-Color e no 
Spectrum. 

Quando a checagem de entrada reve- 
la um erro, a vari^vei ME assume um 
valor particular, relacionado com a 
mensagem previamente definida que 
corresponde ao'erro. 

A primeira opgao testa se ocorreu 
uma entrada maior do que 25 caracte- 
rcsi a segunda insiste na senha correta. 
A terceira e tipica de uma reconfirma- 
i;ao de informagao. A quarta pede que 
um dado seja redigitado ap6s uma en- 
trada vazia. A opcao segulnte responde 
de modo inesperado quando a barra de 
espa*;os e pressionada. A sexta e uma va- 
riagao da checagem que geralmente e 
feita ap6s uma resposta sim/nao. As 
duas seguintes verificam se apenas rui- 
meros ou letras foram digitados e a ul- 
tima testa a presen^a de um O (letra) no 
lugar de um (mjmero). 

O programa prossegue', at raves de 
uma sub-rotina que mostra a mensagem 
adequada ao erro; 



2000 IF 
eS (em) 



EM>0 THEN PRINT TAB 6; 



Eia^^[l][^ 



2000 IF EM>0 THEN PBINT EMS (EM) 
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COMPUTADO^ 
FALAM 





J& existem sintetizadores de voz para 
a maioria dos microcomputadores 
dom^sticos. Veja aqui a descripao dos 
tipos mais importantes e os efe'rtos 
que voc§ pode obter com cada um deles. 



1 



m 



Nos filmes de ficcao ciendfica, vemos 
com freqiiencia computadores capazes 
de falar. Voce deve se lembrar, entre vi- 
rios outros, do HAL 9000, o tenebroso 
e megalomanJaco computador do filme 
"2001 — Uma Odiss^ia no Espaco", e 
OS robos falantes da serie "Guerra nas 
Estrelas". S6 muito recentemente, po- 
rem, os computadores reais e, particu- 
larmente, os microcomputadores pes- 
soais receberam perif^ricos que Ihes 
conferem o dom da voz. No exterior, ji 
existem sintetizadores de voz para qua- 
se todos OS tipos de microcomputado- 
res — e a preijos bastante baixos, gra- 
(;as a nova geragao de chips de circuito 
integrado, fabricados especialmente pa- 
ra a sJntese da voz. Alguns desses sinte- 
tizadores podem .ser encontrados tam- 
b^m no Brasil. 



PARA QUE SERVEM? 



For que dar ao micro a capacidade 
de falar? Bern, antes de mais nada, nao 
i\& diJvida de que isso seria tremenda- 
mente divertido. Baata pensar na infi- 
nidade de coi&as que voce faria com um 
computador faiante: ele poderia contar 
piadinhas, recitar poemas ou, entao, 
efetuar tarefas mais prdticas, como ler 
em voz alta instrugoes complexas para 
um jogo, dispensando-o de abrir o ma- 
nual a toda hora. 

A utiiizacao dos sintetizadores de 
voz em jogos i, tambem, muito interes- 
sante. Vocd jd deve ter visto alguns vi- 
deogames e liipers que tagarelam alegre- 
mente com o jogador. O sintetizador 
permite que voce aumente a velocida- 
de de interafao com o jogo e que eco- 
nomize espa?o na tela, se as mensagens 
ou instrucoes dirigidas ao jogador fo- 
rem faladas, e nSo exibidas, AJem dis- 
so, como voce nao precisarci ler fre- 
qiientes mensagens na tela, poder^ con- 
centrar sua atenfao nos joysticks e nos 
graficos. 

£ claro que os sintetizadores de voz 
tambem tern anlicafoes mais "s^rias", 
tais como auxiliar uma pessoa cega a uti- 
lizar o computador. Um programa es- 
pecial pode fazer com que o sintetiza- 
dor pronuncie, letra por letra, ou pala- 
vra por palavra, tudo o que € digitado 



no computador, ou que leia em voz al- 
ta listagens de prograraas ou dados, k 
medida que aparecem na tela. 

Chips de sintese de voz estio come- 
gando a ser usados tambdm era autom6- 
veis, para lembrar ao motorista que ele 
esqueceu de colocar o cinto de seguran- 
ea, avisar-lhe que a pressao do 61eo es- 
tdl>aixa, e assim por diante. E, sem du- 
vida, podemos prever que seu uso se ex- 
pandira grandemente no ramo dos ele- 
trodomesticos. Jd temos uma amostra 
disso nos fornos de microondas que avi- 
sam quando o prato esta pronto, ou em 
secretdrias eletronicas que atendem edu- 
cadamente aos telefonemas na ausencia 
do morador. 

Os sintetizadores de voz tambem s3o 
muito ijtds no ensino, tornando diver- 
tido aprender a soletrar palavras em 
qualquer idioma, ou a reconhecer letras 
e niimeros. 

Seu micro pessoal i capaz de tudo is- 
so, desde que voce conecte a ele o tipo 
apropriado de sintetizador de voz. 



OS TIPOS PRINCIPAIS 



Tecnicamente, existem dois m^todos 
principals para se obter a sintese da voz 
humana. Eles sao bem diferentes en- 
tre si, e ambos apresentam vantagens e 
desvantagens. 

O primeiro m^todo utiliza amostras 
de fala humana: um locutor enuncia le- 
tras, niimeros, palavras ou frases intei- 
ras, que sao convertidas para niimeros 
digitals e armazenadas permanentemen- 
te em um chip de memdrta. O segundo 
metodo armazena apenas sons elemen- 
tares (fonemas, sitabas), que um geia- 
doT de sons do computador produz, uti- 
lizando-os depois para compor palavras 
e frases mais complexas, 

O tipo de sintetizador que armazena 
amostras de fala humana alcanna, na- 
turalmente, uma qualidade de reprodu- 
gao muito mais fiel. Em compensagao, 
ocupa muito espago na memdria e seu 
vocabulirio i mais restrito. 

O chip sintetizador de voz desenvol- 
vido pela Texas Instruments (jA dispo- 
nivel no Brasii, com um vocabuidrio em 
portugufis) 6 um bom exempio deste pri- 
meiro tipo. As ondas sonoras (o sinal de 



voz) sao inicialmente convertidas para 
niimeros digitals por um conversor ana- 
logico-digital (ADC), de maneira que 
possam ser armazenadas em um chip de 
memdria ROM. Posleriormente, quan- 
do a palavra ou frase e gerada, o sinal 
digital armazenado 6 convertido de volta 
para o sinaJ analbgico original. Na ver- 
dade, nao se armazena o sinal de voz 
original de forma integral, o que exigi- 
ria uma quantidade enorme de memd- 
ria, mas apenas informafoes sobre o si- 
nal. Consegue-se, assim, uma grande 
compactagao do sinal original. S.e a fa- 
la fosse integralmente digitada, precisa- 
riamos de cerca de 500 kbytes para 2 rai- 
nutos de fala — muito mais mem6ria do 
que a maioria dos micros domeslicos 
dispoe. Felizmente, a tecnica de com- 
pressSo obtem uma redugao de 98'9i>, de 
modo que os dois minuios cabcm em um 
simples chip de ROM. 

O segundo tipo de sintetizador de voz i 
6 o mais comum. Em vez de armaze- 
nar palavras completas, ele gera apenas 
OS fonemas bdsicos do idioma, como 
"bd", "6", "cW etc. Como estes fo- 
nemas tambem sao chamados de al6fo- 
nos, o sintetizador tomou-se conhecido 
como sintetizador alofonico. 

Existem cerca de sessenta fonemas 
deste tipo na maioria das linguas ociden- 
tais. Com eles, pode-se construir qual- 
quer palavra ou frase em uma determi' 
nada lingua. ^ claro que os fonemas da 
lingua portuguesa sao bem diferentes 
dos da lingua inglesa. Assim, em prin- 
cipio, i possivel sintetizar fala em por- 
tuguSs a partir de um sintetizador fabri- 
cado nos Estados Unido.s, s6 que o com- 
putador terd um acentuado "sotaque" 
norte-araericano. 

Neste metodo, nao se armazena a fa- 
la verdadeira, mas apenas a informagao 
digital que ^ empregada para ativar o ge- 
rador de sons interno, o qual produzird 
uma aproxima<;ao digital do fonema de- 
sejado. Cada fonema tem um c6digo, 
ou endere^o inicial de armazenamento, 
que estd disponivel em uma tabela de 
consulta dentro do chip. 

Um programa escrito para o sinteti- 
zador deve preocupar-se apenas em cha- 
mar o c6digo correto, quando ele € ne- 
cessirio. Assim, cconomiza-se muita 
mem6ria, pois para cada segundo de fa- 
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TtPO alofOnico 
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MELHORE A PRONUNCIA 
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la sio necessdrios somente 12 bytes de 
iaformacao digital. 

Voce jd deve ter visto alguns dicio- 
ndrios que utilizam esquemas fon^ticos 
escritos, para indicar a pronuncia das 
paEavras. A representacao de cada som 
muitas vezes corresponde k propria le- 
tra ou silaba, como "te", "cha" etc.; 
mas, em alguns casos, assume formas 
bem mais complexas, como "ng", "cz" 
etc. O niimero de sons e a forma exata 
como sao indicados dependem, natural- 
memte, do idioma ou, ainda, do sotaque 
regional. 



da a partir dos fonemas, Mas esses sin- 
tetizadores apresentam uma desvanta- 
gem: a qualidade da voz, que e baixa, 
parecendo mais a voz tipica de robSs — 
mon6tona, sem as modulaijoes de inten- 
sidade e freqiiencia que tornam a fala 
melodiosa e carregada de diversos tipos 
de significado (fim de uma frase, excia- 
raa?ao, ironia, Snfase etc.) 

A maioria dos sinteiizadores que ar- 
mazenam a fala, por sua vez, dispfie de 
um vocabulirio bastante limitado {algo 
em torno de cem palavras ou frases car- 
tas), mais a pronuncia das letras do al- 



fabeto, dos niimeros e alguns sufUos e 
prefixos, como "^simos". AJem disso, 
ao contrdrio dos sintetizadores alofflni- 
cos, ales nao podem ser programados, 
o que diminui muito sua flexibilidade, 
ainda que se possa comprar chips adi- 
cionais com novos conjuntos de pala- 
vras. Mas eles apresentam uma vanta- 
gem: como a fala sintetizada t muito 
mais autSntica, sao mais uteis quando 
mensagens curtas — mas que precisam 
ser muito claras — devem ser pronuncia- 
das (por exerriplo, instrui;6es como "pres- 
sione qualquer tecla para come^ar"). 



VOCABULARIO 



Os sinienzadores alofonicos tem a 
vantagem de dispor de um vocabulario 
praticamenie ilimitado, pois qualquer 
paiavra. em princs'pio, pode ser const ruf- 




COHO CONECTAR SINTETIZADOR 



COMO PROGRAMAR SINTETIZADOR 
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Quase todos os sintetizadores de voz 

sao vendidos na forma de cartuchos (se- 
melhantes a expansao de mem6ria dos 
micros da linha Sinclair; sac conectados 
a interface de expansao na parte de tras 
do console) ou na forma de placas de 
circuito impresso, que devem ser encai- 
xadas em urn dos soquetes internes do 
compuiador (6 o caso dos micros da li- 
nha Apple). Os sintetizadores que ocu- 
pam o unico soquete de expansao da 
maquina geralmente fornecera um so- 
quete de expansao prdprio, ao qual se 
pode ligar um joystick, uma impresso- 
ra etc. 

Outro tipo bastante comum de sinte- 
tizador € o que utiliza uma porta serial 
padrSo, do tipo RS-232C, para se comu- 
nicar com o computador. Assim, podem 
ser usados com muitos tipos diferentes 
de microcomputadores. 

Todos esses sintetizadores estarao 
prontos para operar tao logo sejam li- 
gados ao soquete correto. A saida do 
som pode ser feita atravis de uma co- 
nexao para um sistema de alta- 
fidelidade (amplificador e alto-falantes), 
ou entao para a TV. Em ambos os ca- 
ses, controla-se o volume e a altura do 
som gerado, o que possibilita tornd-lo 
menos aspero ou "rob6tico". Outros ti- 
pos de sintetizador tem seu pr6prio sis- 
tema de amplificagao e de alto-falante, 
ou utilizam o alto-falante intemo do mi- 
crocomputador. Nesse caso, geralmen- 
te d impossivel controlar o volume 
sonoro. 



SiNTESE POR SOFTWARE 



Os microcomputadores que possuem 
geradores sonoros sofisticados oferecem 
uma alternativa bastante razoivet para 
se obter stntese de voz sem necessidade 
de hardware especial. Uma mdquina 
bem popular na Europa e nos Estados 
Unidos, o Commodore 64, tem um po- 
deroso gerador de efeitos sonoros e mu- 
sicals, que pode ser programado para 
sintetizar voz por aproxima^ao digital. 
O sintetizador possibilita o controle de 
diversos canais de som, simultaneamen- 
te, bem como a manipulaglio de vdrios 
parametros de modulagao de freqiiSn- 
cia, envelope e intensidade. 

No Brasil, os micros da linha TRS- 
Color e MSX podem ser usados desta 
maneira, ou seja, simplesmente adqui- 
rindo-se um software especifico para 
sintese de voz. Evidentemente, o tipo 
utilizado, nesse caso, e o de sintese alo- 
fonica. on por fonemas. 



A forma mais direta de operaqiao da 

maioria dos sintetizadores consiste, sim- 
plesmente, em pronunciar letras e nume- 
ros, cada vez que a tecla corresponden- 
te e pressionada no computador. Alguns 
modelos existentes para o Sinclair e o 
Spectrum tambem sao capazes de pro- 
nunciar por extenso instrugoes, coman- 
dos e funfoes do BASIC, associados a 
cada tecla. 

Entretanto, patra fazer com que o sin- 
tetizador emita palavras ou frases com- 
pletas, h necess^io dispor de um softwa- 
re especial — geralmente em linguagera 
de mSquina — que deve ser carregado 
na mdquina antes da utiliza?ao do sin- 
tetizador. Este software habilita o inter- 
pretador BASIC, por meio de uma se- 
qijencia de comandos PRINT, a trans- 
mitir ao sintetizador a mensagem ou 
mensagens a serem pronunciadas. 

Um sintetizador de voz para os mi- 
cros da Einha Apple, por exempio, po- 
de ser programado por meio de instru- 
goes PRINT comuns, dentro de um pro- 
grama BASIC. Para isso, bastam alguns 
comandos POKE especiais, que habili- 
tam a interface do sintetizador. 

Existem tres sistemas diferentes pa- 
ra especificar a seqiiencia de fonemas ou 
de voc^bulos que devem ser pronuncia- 
dos pelo sintetizador. O mais simples de- 
les utiliza c6digos num^ricos para iden- 
tificar os fonemas ou os vocdbulos. Es- 
tes c6digos dependem do chip sintetiza- 
dor que esl^ sendo empregado; a forma 
de usa-los dentro de um programa tam- 
bem varia amplamente. Por exempio, os 
cbdigos para "hello" (al6) sao 27, 7, 45 
e 53. Os mimeros pqdem ser cntrados 
como uma linha DATA: 

DATA 27,7,45,53 

... ou como uma cadeia alfanum^rica: 

LET AS-"27074553* 

O manual que acompanha o sinteti- 
zador explica detajhadamente, com mui- 
tos exemplos, como utiUzar os c6digos. 

A desvantagem desse sistema e que 
ele e pouco "natarat", tornando muito 
trabalhosa a tarefa de especificar at^ 
mesmo seqiiencias curtas de fonemas ou 
de palavras. Por isso, desenvolveu-se 
um segundo tipo de software, mais f^- 
cil de usar, que se baseia em algo seme- 
Ihante aos esquemas fon^ticos de pr-o- 
nuncia encontrados nos dicionSrios. Por 
este mdtodo, as palavras que compoem 
a frase sao escritas com nota96es espe- 
ciais para cada fonema. Veja como vo- 
ce poderia dizcr "hello" em dois tipos 
diferentes de sintetizadorr 



10 LET bS 
PAUSE 1 



"he (11) Cool 



Q 

10 AS-'I1H1,EH,LL,0U,4' 
20 PRINTtA, AS 

O manual do sintetizador traz uma 
lista de todos os fonemas, indicando co- 
mo especifici-los. Como vocS vg, 6 bein 
mais fdcil do que usar c6digos numerl- 
cos mas, em compensagao, e precise co- 
nhecer detalhadamente a forma de es- 
pecificagao dos fonemas. 

O terceiro sistema e bem mais sofis- 
ticado, fazendo a chamada "sintese por 
transforma?ao direta texto-fala". Por 
enquanto, programas desse tipo existem 
somente para alguns idiomas, entre os 
quais o italiano, o alemao, o japones, 
o f ranees e o ingles. Com eles, basta for- 
necer um texto escjito de forma correta 
ao sintetizador, e este produzira auto- 
maticamente a seqii&ncia de fonemas 
que gerara a voz: 



H] 



10 CALL -435 

20 PRINT "HELLO" 

As regras de conversao texto-fala nao 
sao, naturalmente, infaliveis, e a exis- 
tencia de um grande niimero de exce- 
g5es, notadamente no ingles, pode pro- 
duzir OS mais absurdos resultados. 

Para usar em portugues um sistema 
como este, 6 necessArlo grafar as frases 
como um norte-americano as pronun- 
ciaria, Por exempio, como ser^ pronun- 
ciado o texto abaixo? 

20 PRINT "EHDEEHTOHUftAH MOHVAB 
KOOLTOORAHL" 

Alguns sistemas de sintese de voz per- 
mitem a programa^ao de entona^So e 
Snfase, de modo que a fala saia menos 
mondtona e mais interessante, com pau- 
sas e modulagoes capazes de dar diferen- 
tes conota^oes ^s palavras — o que € 
muito importante na linguagem falada. 
Com isso, pode-se indicar ao computa- 
dor qual a sflaba tdnica de luna paiavra, 
se a frase d interrogativa ou exclamati- 
va etc. 

Como se ve, os sintetizadores, al^m 
de nos proporcionar momentos de diver- 
sao, poderao nos ensinar muita coisa so- 
bre nossa pr6pria linguagem, se forem 
do tipo alofonico. 
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DA AS CARTA 



A DISTRIBUiCAQ DAS CARTAS 

COMO APOSTAR 

PECA MAIS CARTAS 

TOTAL DE PONTQS 

TENTE QUEBRAR A BANCA 



Num luxuoso cassino, o homem da banca 
laiiQa um othar frk) e indiferente. 
Vocg faz sua aposta e recebe uma 
nova carta. H^ um tnomento de suspense. 
Ser^ que voce atingiu os 21 pontes? 



Alem da rotina gr^fica apresentada 
no aitigo anterior, precisamob de duas 
outras para jogar Vinte-e-um; uma que 



se comunique com o jogador e outra que 
permlta ao computador fazer o papel da 
banca. A parte que voc§ digitard agora 
cuida do jogador. Ela faz tres coisas: dd 
as cartas, permile ao jogador fazer apos- 
tas e pedir mais cartas, e mostra o total 
de pontos — soma dos valores das car- 
tas — e de fichas. 

A banca solicita ao jogador que apos- 
te, depois de ter dado duas cartas: uma 
para ele e outra para si mesma. Ap6s re- 
ceber a segunda carta, o jogador pode 
"pedir" outra, "comprar" mais umaou 
"parar" 

O programa tern rotinas para execu- 



tar as tarefas correspondentes is op^Ses 
do jogador, distribuindo novas cartas 
e/ou dobrando a aposta, ou passando 
a vez de jogar para a banca. Depois de 
dar uma carta, o programa verifka se 
o iota] de pontos ultrapassou 21 , ou se- 
ja, se jogador "estourou". 

Al^m disso, o programa prev& duas 
outras situagSes: "natural" (quando o 
jogador faz 21 pontos com apenas duas 
cartas) e "mSo de cinco" (quando cin- 
co cartas reunidas nao chegam a somar 
22 pontos). Se qualquer delas ocorrer, 
o jogador serd informado e a vez pas- 
sar^ para a banca. 



Adicione estas novas linhas ao pro- 
grama do artigo anterior. Note que a li- 
nha 530 foi apenas aumentada. 



9D DIM S(2) : LET BET=B 
100 DIM 0(2) : DIM V {2) 
SOO I,ET Y-B: LET X-C : LET TF 
: LET AF-6; LET PF-B: LET FF 
52-0 FOR U-C TO 2 

'5.10 OOSt^B 5500: GOSOB 6000: 
OOSUB 6500 
535 IF q^C«52 TH:EN LET CC=B 
540 I,ET 0{U)-C(CC+C) • 
-5.50 LET X-X+6 , 
5&0 PRLNT PAPER .7;AT 31. .B- 
'CE TEM ",;CP;" FICHAS " . 

N^570 IF U'-C THEN INPUT "Q«AL 
A SUA APOSTA? "JAM: IF A«>CP 
oS Ak^c then dOtO 570 
590' TF U-C THEN r =:'^ /-ia_/- 
LET BET-AM 
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nil 



GOSUB 7000: 



LET PF=C: 
,18;" NATUR 



595 GOSUB 7000 
NEXT U 

622 IF S(Z)=21 THEN 
PRINT PAPER 2: AT 4, 
AL ": GOTO 2500 

700 IF (sccxae and (s<2)<i6 

OB S(2)>21) OH TF-C OR CP<AM> 
THEN GOTO 7 05 

702 INPUT "COMPflA.PEDE OR SATI 
SFEJTO? "; LINE I)S : IF DS<>"C" 
AND D$<:>"P" AND DS<>"S" THEN 
GOTO 70 2 

703 GOTO 715 

705 IF (S(C)>21 OH CP<AM OB TF 
-C) THEN GOTO 710 

706 INPUT 'COMPRA OU PEDE? "; 
LINE D$: IF D$<>"C" AND DSO"? 
" THEN GOTO 7 06 

708 GOTO 720 

710 IF {S<C)<16 AND (S (2)<16 
OR SC2)>21)) THEN GOTO 770 

711 INPUT "PEDE OU SATTSFEITO? 
"i LINE DS; IF DSO"?" AND DS 
O'S" THEN GOTO 711 

715 IF DS="S" THEN GOTO 2500 

720 IF LEN DS"B THEN GOTO 700 

725 IF DSCC)<>"C'' THEN LET TF 

-C: GOTO 905 

760 LET BET=BET+AM: LET CP-CP- 

AM 

770 PRINT PAPER 7; AT 21,B;"V0 

CE TEM ";CP;" FICHAS" 

905 LET E-C(CC) 

910 GOSUB 5500: GOSUB 6000: 

GOSl/B 7000 

920 LET X=X+6 

921 IF S(C)>21 THEN GOTO 2000 
925 IF X-31 AND S{C)<22 THEN 
PRINT PAPER 2; AT 21,8;' MAO D 
E CINCO! "; LET FF-C : GOTO 

2500 

930 GOTO 700 
2000 IF CP-B THEN PRINT AT 21, 
B;"VOCE PEHDEU TODAS AS FICHAS! 
" : STOP 
2010 IF CP>-1000 THEN PRINT AT 

21.B; "PARABENS! VOCE QUEBROU A 

BANCA!": STOP 
2020 PRINT #C; "PRESSIONE "S' PA 
HA OUTRA MAO" 

2030 IF INKEy$<>"S' THEN GOTO 
2030 

2037 IF PF^C OR DPF=C THEN COS 
UB 5000 

2040 CLS : GOTO 90 
2500 STOP 

6000 IF VA>10 THEN LET VA-10 
6010 LET S(C)-S(C)+VA: LET St2} 
■'S(2)+VA 
6020 IF UA=C AND AF=B THEN LET 

S (2) =SC2)+10: LET AF=C 
6030 IF S(C)>21 THEN PRINT FL 
ASH C; PAPER 7: AT 20,8:" " ; TAB 
9; "VOCE QUEBHOU! " : TAB 31;' "v 
LET DPF=B: RETURN 
6040 PRINT AT 20,8;" ";TAB 31;" 

6050 PRINT PAPER 7; INK B ; AT 2 
0,B;-SEU SCORE E' •';S(C);: IF S 
C2JOSCC) AND S(2)<22 THEN PHI 
NT PAPER 7; INK B ; " OU •'!S{2) 
6060 RETURN 
6500 FOR N-10 TO 18 



6610 PRINT PAPER 7; INK 1 rAT N 

.XjCHRS 161iCHHS 161:CHRS 161 :C 

HH$ 161 ;CHRS 161 

6B20 NEXT N 

6530 RETURN 

7000 LET CC=CC+C: IF CC=53 THEN 

LET CC=C 
7010 HETUPN 

As IJnhas 90 e 100 estabelecem a va- 
riivel BET e tres matrizes: S, que con- 
tem OS dois totals do jogador (um as vale 
1 OU 1 1); O, que contem as duas primei- 
ras cartas da banca; e W, que contem 
OS dois totals correspondentes a soma 
dessas duas cartas, 

A linha 500 estabelece as coordena- 
das do canto superior esquerdo da car- 
ta, e coloca o valor em quatro varid- 
veis indicadoras. TF indica se o jogador 
jd pediu cartas. Quando isto acontece 
pela primeira vez, seu valor passa a ser 
1 (segundo as regras, apcis "pedir" uma 
carta, o jogador nao podera mais "cora- 
prar" outras). AF e um sinalizador de 
ases usado para calcular os dois totals, 
ji que um is vale 1 ou 1 1. PF e um si- 
nalizador de "naturais", e FF e um si- 
nalizador de "mios de cinco" (as regras 
do jogo serao apresentadas no prdximo 
artigo). 

O laco FOR... NEXT entre as Hnhas 
520 e 595 cuida da distribuigao das duas 
primeiras cartas do jogador e da banca. 
A linha 530 chama duas sub-rotinas: a 
da linha 6000 atualiza o total k medlda 
que as cartas sao dadas, e a da tinha 
6500 desenha a parte de tras das cartas 
da banca. 

Analisemos essas sub-rotinas mais 
detalhadamente. A linha 6000 verifica 
se a carta em questao e uma carta de fi- 
gura. Se for, seu valor seri 10. A linha 



6010 soma o valor da carta aos dois to- 
tals da matriz S . A 6020 verifica se a car- 
ta € um fc, A 6030 averigua e informa 
se jogador "estourou". 

Depois que o programa retorna ao 
seu curso principal, a Linha 535 verifica 
se a carta atual e de niimero 52; se isso 
acontecer, o niimero da carta seri mu- 
dado para (nosso baralho tem 52 car- 
tas, numeradas de 1 a 52). A linha 540 
coloca as cartas da banca na matriz 0. 
A 550 adiciona seis posigoes a coordc- 
nada X da carta seguinte. 

O niimero de fichas que o jogador 
ainda tem i mostrado pela linha 560. A 
linha 570 pede para que seja feita a 
aposta e verifica se hd fichas suficien- 
tes, O valor da aposta i colocado na va- 
riavel BET e subtraido do total de fichas 
pela linha 590. As variaveis AM e BET 
sao necessarias para o caso de o joga- 
dor vir a "comprar" cartas. 

Os dois GOSUB 7000 da linha 595 se- 
Jecionam a carta atual (CC), asseguran- 
do seu retorno ao inicio do monte de 
cartas para que este nao acabe. O la?o 
FOR.. .NEXT termina aqui. 

A linha 622 verifica se as duas primei- 
ras cartas do jogador fazem um "natu- 
ral", on seja, um total de 21 pontes. O 
sinalizador de "naturais", PF, se torna 
1 e o programa pdra (a linha 2500 sera 
apresentada no prdximo artigo). 

As linhas 700, 705 e 710 testam as di- 
versas combina?6es de totals de pontos, 
o indicador TW e o niimero restante de 
fichas. Sua fungao € seleclonar as op- 
Cdes para o jogador. Por exemplo, sii- 
ponhamos que o total de pontos do jo- 
gador seja maior que dezesseis e mcnor 
que 21 . Se ele ainda nao tiver pedido ne- 
nhuma carta e o niimero de fichas for 
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suficiente, a linha 720 colocara a sua dis- 
posi^ao as opfoes de "parar", "pedir" 
ou "comprar" cartas. Se, ao contrdrio, 
ele jd tiver "pedido" aiguma carta, nao 
poderi mais "comprar" e apenas as op- 
?6es de "parar" ou "pedir" mais car- 
tas Ihe serlo dadas pela linha 7 1 1 . A ou- 
tra combinagio de oppoes — "com- 
prar" ou "pedir" mais cartas apenas 
quando nenhum dos totais em S ultra- 
passar dezesseis — i oferecida pela li- 
nha 706. Se o jogador resolver parar a 
essa altura, essa versao inacabada do 
programa terminara. 

Caso apenas < ENTER > tenhasido 
pressionado, sem a letra corresponden- 
te k opcao, a linha 720 repetira as op- 
Coes, A linha 725 acionara o indicador 
TW caso o jogador nao tenha "compra- 
do" cartas. Se tiver, o programa ird pa- 
ra a linha 905. 

Se o jogador preferir comprar uma 
carta, a linha 760 modificard o valor da 
aposta (BET) e do restante das fichas 
(CP). A linha 770 mostra quantas fichas 
sobraram. As Itnhas de 905 a 920 mos- 
tram as cartas restantes, que foram 
"compradas" ou "pedidas". A linha 
921 atualiza os pontes do jogador. Ca- 
so eie tenha "estourado", o programa 
iri para a linha 2000, onde sera feita 
uma serie de verificapoes. 

A linha 925 verifica se o jogador tern 
uma "mao de cinco", examinando a po- 
sIq^o da ultima carta dada ao jogador: 
se esta corresponder k quinta carta, e o 
total for inferior a 22, isso significa que 
o jogador tem uma "mao de cinco*'. O 
indicador FF sera entao acionado e o 
programa iri para a linha 2500. Se o jo- 
gador ainda nao tiver parado de "pe- 
dir" cartas nem conseguido uma "mSo 



de cinco", a linha 930 fara o programa 
voltar k linha 700. 



QUEBRANDO A BANCA 



Se o jogador perder todas as fichas, 
seri inf ormado pela linha 2000 e o jogo 
acabarS, Se ganhar mais de 1000 fichas, 
ele "quebrard a banca", sendo informa- 
do pela linha 2010, Se isso acontecer, o 
jogo terminara. 

Se o jogador tiver menos de 1000 fi- 
chas, a linha 2020 perguntard se ele de- 
seja outra "mao". PRINT I e usado pa- 
ra colocar a mensagem na primeira li- 
nha da parte inferior do video. 

Quando urn dos jogadores obtiver 
um "natural", as cartas serao embara- 
Ihadas novamente pela linha 2037, que 
chamard a sub-rotina adequada. Se ele 
quiser jogar outra vez a linha 2040 lim- 
para a tela, reiniciando o jogo. 



Apague as linhas 190 e 200 do pro- 
grama anterior e adicione as prbximas 

linhas. 

84 H=RND(-TIME} :MN-100 

66 CX-31 : CTf =1. : PL=0 : DL-0 : NC-2 : DA 

-0 : PA-0 : P&=0 : TH-0 : PF-0 ;NA-N : BT- 



210 GOSUB .1000 

220 D1-N:G0SUB 1000: FOR 1-107 T 

3 180 STEP 3: LINE (.10 , I) - {74 , 1 + 

2) ,6-8* (1/2- INT (1/2) ) .BFrNEXT 

240 GOSUB 5 000: GOSUB 6.") 00 

260 GOSUB SOOOrGOSUB 5000:GOSUB 

7000 
260 GOSUB !J000rPRESET(8,eO) :PHI 
NT#J.,"l)ae as aet.as para apoatar 
. " : PRESET <fl. 92) :PHINTil, "Depoia 

aperte <RETUBH>" :CL0SE1 




26.^ AS-lNKEyS;IF A$<>CHHS (28) A 
ND A5<>CHRS(29) AND AS<>CHRS(31 
) AND AS<:>CHRS(30) AND ASOCHRS 
<J.3} THEN 265 

266 IF ASC(AS)=30 THEN BT'^BT+IO 
:GOSUB 5000:GOSUB BOOOrGOTO 265 

267 IF ASC{A$)=3l THEN BT=BT+10 
* (BT>9) :GOSUB !iOOO:GOSUB 8000:G 
OTO 265 

268 IF ASC{A$)=2B THEN BT=BT+1 : 
GOSUB 5000:GOSUB 8000:GOTO 265 

269 IF ASC{A$>=29 THEN BT=BT+1* 
(BT>0): GOSUB 5000: GOSUB 8000: GO 
TO 26^ 

270 GOSUB 5aO0:BT=INT(BT) :TF BT 
<1 OR BT>MN THEN 24U 

280 OB=BT:MN=MN-BT 
290 CX=63: GOSUB 3000 
300 D2=N:G0SUB 1000:LINE (61,10 
6}-(105,185) ,12,BF;F0R 1=107 TO 
180 STEP 3:LINE (62 , I) - (1 05 , 1+ 
2) ,6-6*(I/2=INT(r/2) ) ,BF:NEXT 
320 IF PL-11 AND PA-1 AND NC-2 
THEN 650 
.130 CX-CX+32 

140 PT=PL+10*{PA AND(PL<12) ) 
350 IF PL>21 THEN 680 
360 IF NC-5 THEN GOSUB 5000 :GOS 
UB 6000:PBINT|1, "VOCE TEM UMA 
MAO DE CINCO" :P5=1: GOSUB 5500 :G 
OTO 500 

370 GOSUB SOOOrGOSUB 6O0O 
380 GOSUB 8000 
390 GOSUB 5000: GOSUB 7000 
400 IF TW-0 THEN GOSUS6000 : PRES 
ET (9,60) :PBINT|1 ■" (Oompra ou' : 
CLOSEl 

410 GOSUB 5000: PRESET {8-12*8«( 
TW^O) ,80) :PRINTil," (P>ede maia 

ou acha" :PRESET(8.92) :PRINT»1." 
(S)yficiente ?" 

430 AS-INKEYS:1F ASO'P" AND (A 
gO-S" OR PT<16) AND (ASO'C" 
R TW-1) THEN 4 30 

440 IF AS-"S" THEN GOSUB 5800 :G 
OTO 490 

450 IF AS="P" THEN TH=lrGOSUB 5 
800 :GOTO 480 

460 IF MN<OB THEN GOSUB 5800 :G0 
SUB 5000: PRESET (8, 80) :PRINT|1," 
Vocfi nao tem":PPESETt8.92) :PE1IN 
Tli,"tanto ciinheiro aaaim" :G05U 
B 5500: GOTO 400 

470 BT=BT+OB:MN=MN-OB: GOSUB 700 
0:GOSUB 50nO:GOSUB 8000:GOSUB 5 
000 : GOSUB 580 

480 NC=NC+1: GOSUB 3000: GOTO 320 
490 IF PT<16 THEN GOSUB 5000: PR 
ESETC8.80) ;PHINT|1 ,"Voc6 nao po 
de parar f.endo apenag ";PT:GOSU 
B 5500:CX-C)C-32:GOTO 370 
500 GOTO 7 50 

650 GOSUB 500O;GOSUB 6000;PRESE 
T{8,88) :PHTNTH," VOCE TEM UM N 
ATVRAL":GOSUB 5500 : PF-1 : GOTO 86 
680 GOSUB 5000: GOSUB 6000:PRESE 
T (8,88) :PRTNTfl , "Voce eatourou 
e perdeiJ a. apoata" : GOSUB 5500 
750 GOSUB 5000: GOSUB 6000: IF MN 
>999 THEM PRTNTil , "PARABENS , VO 
Ce QUEBROU A BANCA" : CLOSEl . PLA¥ 
"T255ADFBFEADC":GOSUB 5500: GOT 
790 
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760 PRESET (6 , 90) : PBINTIl , "AperT. 

e <RETURN> para" • PRESET (8. 92) : P 

RINTIl, " jogar novamente" 

770 IF INKEY$<>CHR$(13) THEN 77 



780 CLOSElrOOTO B6 

2005 LINE {CX-2,CY-i)-(CX-2,CY+ 

71) ,12 

3000 GOSUB 1000:G;OSUB 2000: if N 

«>10 THEN PL-PL+10 ELSE PL-PL+N 

M 

3010 IF NM-l THEN PA-1 

3020 RETURN 

5000 OPEN "GBP:" FOR OUTPUT AS 

#1 ; C0I.0R15 : PRESET (8 , 68) : RETURN 

5500 CLOSE! :FOB I-l TO 2000:NEX 

T:LINE (0.80)-{25S.106) ,12,BF:R 

ETUBN 

5800 CL0SE1:L1NE (0 . 60) - C25b . 1 

6) , 1 2, BF: RETURN 

6000 LINE {204,0)-(255,23) .12,B 

F 1 PRESET (204,16): PRINTI 1. , " PONTO 

S-:PBES£TC204,0J :PRINTil,PL; : IF 

PA=1 AND PL<12 THEN PRESET {204 
.8) :PaiNTIl,"OU" ;PT 
6010 RETURN 

fiSOO LINE (204,0)-(255,2.3) .12,B 
F : PRESET (204 , 16) : PHTNTtI , "PONTO 
S": PRESET (2 04,0) :PBINTtl,PL; :IF 

PA=1 THEN PResET(204,B) :PRTNTI 

i,"ou li- 
es 10 RETURN 

7000 LINE (204,32)-{255.5S) ,12, 
8F:PRESET(2fl4,48} : PRINT! 1 , "FTCH 
AS" :PBESET(204, 32) :PBINT|3 .MN:C 
L0SE#1:RETUHN 

8000 PRESET(204 , 132) :PBTNT|1, -A 
POSTA':LTNE ( 204 , J 48) - (255 , 1 JJ5 ) 
. 1 2. BF: PRESET (204 ,14 8) rPRlNTI I , 
BT: CLOSE 11 : RETURN 

A linha 86 estabelece o valor inicial 
de uma s^rie de outras varidveis: CX e 
CY sao as coordenadas do canto supe- 
rior esquerdo da carta. PL e DL sao os 
totais do jogador e da banca, respecti- 
vamerite. NC 6 o numero de cartas que 
urn deles tern, conforme aquele que es- 
teja jogando no momento. DA e PA sao 
indicadores que passam a valer 1 , caso 
a banca ou o jogador tenham um is. PS 
^ outro indicador que passa a valer I , 
caso jogador tenha uma "mao de cin- 
co cartas". TW mostra se o jogador jd 
pediu uma carta; caso isso tenha acon- 
tecido, as regras impedcm queele "com- 
pre" novas cartas. PF indica se o joga- 
dor tern um "natural" (21 pontos em 
duas cartas) e NA ^ o numero da pri- 
meira carta distribuida pela banca. 

A sub-rotina que Pica entre as Unhas 
3000 e 3020 i chamada pela linha 210. 
Uma carta e mostrada na tela; se ela for 
maior que 10, o total de pontos do jo- 
gador ser^ aumentado em dez pontos; 
caso contririo, o valor real da carta se- 
ra somado ao total. A linha 3010 verifi- 
ca se a carta i um ds e modifica o valor 
de PA (indicador de ases do jogador) em 
caso de necessidade. 
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A BANCA DA AS CARTAS 



O programs retorna da sub-rotina 
3000 para a linha 220. Dl 6 a primei- 
ra carta da banca. A sub-rotina 1000 
verifica qual o seu valor e naipe. O 
FOR.. .NEXT desenha o reverse da pri- 
meira carta da banca. 

Para facilitar a impressao de mensa- 
gens na tela de alta resolugSo, foram fei- 
tas v^rias sub-rotinas no final do pro- 
grama. A da linha 5000 abre um arqui- 
vo "GRP:" para que possamos impri- 
mir na tela grifica por meio de PRINT 
1 ; a cor usada^ o branco e PRESET(8,88) 
estabelece a posi^ao onde vai ser impres- 
sa a mensagem. A sub-rotina da linha 
5500 fecha o arquivo aberto pela sub- 
rotina anterior e apaga a mensagem es- 
crita no meio da tela, usando LINE.BF; 
isso e feito apos uma pequena pausa por 
um Ia?o FOR...NEXT para que o joga- 
dor tenha tempo de ler a mensagem. A 
sub-rotina da linha 5800 6 igual a da li- 
nha 5500, s6 que nao provoca uma 
pausa. 

A sub-rotina da linha 6000 mostra o 
total de pontes do jogador no canto su- 
perior direito da tela. A da linha 6500 
exibe, no mesmo local, o valor da pri- 
meira carta do jogador. A sub-rotina da 
linha 7000 mostra o total de fichas que 
restam ao jogador e a da linha 8000, o 
valor da aposta feita. 

A linha 240 revela os pontes do jo- 
gador com o auxilio das sub-rotinas. A 
linha 250 mostra o valor da aposta — 
que ainda e zero ^ e o total de fichas, 
Estas linhas usam a sub-rotina 5000 pa- 
ra abrir o arquivo que possibilita a im- 
pressao na tela grdfica. 

A linha 260 solicita ao jogador que 
fapa sua aposta. O arquivo #l'e'fechado 
para evitar problemas — ■ nao se deve 
deixar nunca um arquivo aberto. As li- 
nhas 265 a 269 permitem o uso das te- 
clas de controle do cursor para fazer 
apostas: as setas "direita" e "esquerda" 
subtraem ou semam 1 ao valor da apos- 
ta, as setas "paracima" e "para baixo" 
somam ou subtraem 10. 

A linha 270 apaga a mensagem ante- 
rior e tambem verifica se a aposta foi va- 
lida; case contririo, ela tern que ser feita 
novamente. Seu valor i subtraido do to- 
tal de fichas do jogador pela linha 280. 

A Unha 290 tra?a a segunda carta do 
jogador e a linha 300 desenha o reverso 
da segunda carta da banca. A linha 320 
verifica seo jogador tern um "natural" 
(ou seja, 21 pontes em duas cartas). 
Neste caso, a linha 650 informa o fate 
e o jogo recoracfa. 

A linha 330 cuida da posi?ao da car- 
ta seguinte. PT 6 o maior total de pon- 



ies que pode ser obtido caso uma das 
cartas seja um as. O menor total, ou o 
linjco total, se nao houver ases, sera PL. 
Se este for maior que 21 , a linha 680 in- 
formard ao jogador que ele "estourou" . 
O programa continua na linha 750, on- 
de sao impressas algumas mensagens, 
conforme a situa?ao. 

A linha 360 verifica se o jogador tern 
uma "mao de cinco". Em caso positi- 
ve, sinaJizador P5 sera ativado e o jo- 
gador in formado; o programa continua- 
rd entao na linha 500. 

A linha 370 mostra os pontes do jo- 
gador, a 380 exibe a aposta feita e a 390, 
•o restante das fIShas. 



AS OPgOES DO JOGADOR 



As oppoes de *'comprar" ou "pedir" 
cartas e de "parar" sjio dadas pelas li- 
nhas 400 e 410, enquanto as linhas 430 
a 450 cuidam da resposta. Se o jogador 
tentar "comprar" cartas (o que dobra 
a aposta) sem ter fichas suficientes, a li- 
nha 460 dara a resposta adequada. A li- 
nha 470 ajusta e mostra o total de fichas 
antes que outra carta seja exibida pela 
linha 480. 

Por mais que tente, o jogador nao 
conseguird "parar" antes de obter pelo 
menos dezesseis pontos, devide as con- 
digoes do IF da linha 430. A linha 490 
6 na realidade desnecessiria e so entra- 
ra em agao caso se mude a condifao 
PT<16 da linha 430. 

A linha 750 atualiza e total de pon- 
tos do jogador e verifica se este tern mais 
de 999 fichas; neste caso, a banca "que- 
brard" e o jogador serd informado, en- 
quanto uma meledia comemora o fei- 
to. As linhas 760 e 780 perguntam en- 
tao se o jogador quer outra "queda". 



Apague a linha 170 e acrescente as 

pr6ximas linhas ao programa do artigo 
anterior; 

150 MN - TOO 

190 HCOLOR' 1: FOR 1 - TO 19 
1: HPLOT 0,1 TO 2 79,1: NEXT 
200 CX - 6:CY - 2 : PI- " : DL - 
:NC = 2: DA = : PA - 0:P5 - :TU 

- 0:PF - 0:t*A - N 
210 CiOSUB 3000 

220 Dl - N: GOSUB 1000: FOB I - 

100 TO 180: HC0L0R= J + 2 » ( 
INT (I / 2) - I / 2): HPLOT 6,1 

TO 56,1: NEXT 
2 30 FOR K - 1 TO 3500: NEXT 
240 HOME 1 TEXT : PRINT "VOCE 
TEM "jPL): IF PA - 1 THEN PBIN 
T " OU 11 •; GOTO 25t) 



245 PRINT 

2^.0 PRINT : PRINT "VOCE TEM "; 

MN;" FICHAS" 

260 PRINT ; INPUT "QUANTO VOCE 

APOSTA ?";BT 
270 BT = INT (BTl : IF BT < 1 
H BT > MN THEN 240 
280 OB = BT:MN = MN - BT 
290 CX - 60: GOSUB 3000 
iOO D2 - N: GOSUB 1000: FOR I » 

100 TO 180: HCOLOR- 3 + 2 * t 
INT {I / 2) = I 7 2> : HPLOT 60. 
I TO 110. I: NEXT 
310 FOR K = 1 TO 4000: NEXT 
320 IF PL - 11 AND PA - 1 AND 
NC = 2 THEN 650 
330 CX == CX + 54 

340 PT = PL + 10 * <PA AND (PL 
< 12) ) 

3S0 IF PL > 21 THEN 680 
360 HOME : TEXT : IF NC - 5 TH 
EN PRINT 'VOCE TEM UMA MAO DE 
CINCO" :P5 =1: FOR K = 1 TO 250 
0: NEXT : GOTO 500 
370 PRINT "VOCE TEM ":PL;: TF 
PA = 1 AND PL < 12 THEN PRINT 
■' OU ";PT: GOTO 3B0 
375 PRINT 

380 PRINT : PBINT "VOCE APOSTO 
U ":BT 

390 PRINT : PRINT "VOCE TEM ": 
MN;" FICHAS" 

400 PRINT : IF TM - THEN PR 
INT " (OOMPHA OU " 
410 PRINT 1 PRINT "(PJEDE HAIS 

" ; : IF PT > 15 THEN PRINT "OU 

ACHA (S)UFICIENTE"; 
420 PRINT " ?" 
430 GET AS: IF AS < > "P" AND 

(A3 < > "S" OH PT < 16) AND ( 
AS < > "C OR TU - 1) THEN 430 
440 IF A$ - "S" THEN 490 
450 IF AS - "P" THEN TW - 1; G 
OTO 480 

460 IF MN < OB THEN PRINT : P 
RTNT "VOCE NAO TEM TANTO DINHEI 
HO ASSIM" : GOTO 400 
4 70 BT - BT + OB:MN - MN - OB 
460 NC " NC + 1 : GOSUB 3000: GO 
TO 310 

490 IF PT < 16 THEN PRINT : P 
BINT "VOCE NAO PODE PARAB TENDO 

APENAS ":PT:CX - CX - 50: GOTO 

370 
500 GOTO 750 

650 HOME : TEXT : PRINT "VOCE 
TEM UM NATURAL": FOB K - 1 TO 1 
500: NEXT : PF - 1: GOTO 190 
680 HOME : TEXT : PRINT "VOCE 
ESTOUHOU E PERDEU A APOSTA" 
750 PRINT : PRINT "VOCE TEM " ; 
MN;- FICHAS": PRINT : IF MN > 9 
99 THEN HOME : INVERSE : HTAB 
8; UTAH 11: PRINT "VOCE QUEBROU 

A BANCA"; FOR I = 1 TO 2000: XX 

- PEEK ( - 16336) : NEXT : GOT 
790 

760 PBINT : PRINT "APEKTE -CBET 
URN> PARA OUTBA MAO" 
770 GET AS: IF AS < > CHHS { 
13) THEN 770 . 

760 GOTO 190 K! 

3000 POKE ~ 16299,0: POKE - ^^ 
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16.104,0: GOSUB 1000: GOSUB 2000 
: IF MM > 10 THEN PL - PL + 10; 
GOTO 3010 
3005 PL - PL + NM 
3010 IF NM = I THEN PA = 1 
3020 RETUHN 

Os leitores que possuem video mono- 
cromatico e que no ultimo artigo prefe- 
riram apagar a linha 1 70 devem substi- 
tuir a linha 190 por: 

190 RGR2 

A linha 150 faz com que o niimero 
de fichas (MIN) do jogador seja 100. A 
linha 190 limpa a tela. 

A linha 200 estabelece os valores int- 
ciais de uma serie de variiveis. CX e CY 
sao as coordenadas do canto superior es- 
querdo da carta. PL a DL sao os totals 
de pontos do jogador e da banca, res- 
pectivamente. NC e o niimero de cartas 
do jogador ou da banca, conforme 
aquele que estiver jogando. DA e PA 
sao indicadores, respectivamente, de que 
o jogador ou a banca possuem um As. 
P5 i um indicador de que o jogador pos- 
sui uma "mao de cinco cartas". TW re- 
vela se o jogador ji "pediu" cartas, sen- 
do entao utilizado para evitar que ele 
"compre" cartas, segundo as regras do 
jogo. PF e um indicador de "naturais" 
(ou seja, pontos em duas cartas). NA e 
niimero da primeira carta dada pela 
banca. Um indicador e uma variivel que 
vale ou 1, de acordo com a situa(;ao. 

A sub-rotina da linha 3000 e chama- 
da pela linha 210. Uma carta ^ coloca- 
da na tela; se for^maior que 10, o total 
de pontos do jogador serd aumentado 
em 10; caso contrdrio, o valor da carta 
sera somado aos pontos do jogador. A 
ttnha 3010 verifica se a carta ^ um as, 
se necessdrio. 



A BANCA DA AS CARTAS 



O programa retorna da sub-rotina 
para a linha 220. All, Dl e a primeira 
carta da banca e a sub-rotina 1000 6 usa- 
da para descobrir seu valor e naipe. O 
FOR... NEXT desenha o reverse da car- 
ta da banca. 

A linha 230 faz uma pausa antes que 
a linha 240 limpe e ative a tela de tex- 
tos e informe o total ao jogador. A 
mensagem adicional "OU 11" e usa- 
da somente quando a carta d um ^s. O 
niimero de fichas i escrito pela linha 
250. A linha 260 cuida da apo-sta do jo- 
gador e a 270 providencia para que a 
aposta seja maior que zero e esteja den- 
tro das posses do jogador (caso con- 
trario, ela teri que ser feita novamen- 
te). O valor da aposta d subtraido das 



fichas do jogador pela linha 280. 

A seguir, a linha 290 chama a sub- 
rotina que distribui as cartas, e a linha 
300 desenha a parte posterior da segun- 
da carta da banca. 

A linha 320 verifica se o jogador tem 
um "natural" depois da pausa causada 
pela linha 310. Em caso positivo, a li- 
nha 650 informara o fato ao jogador e 
o programa recome<;ard. 

A linha 330 cuida da posipao da car- 
ta seguinte. PT e o maior dos totals de 
pontos, para o caso de o jogador pos- 
suir um as. Se nao houver ases, PL serd 
o menor (ou o linico) total. Se PL for 
maior que 21, a linha 680 informari ao 
jogador que ele "estourou". O progra- 
ma continuard, entao, imprimindo as 
mensagens da linha 750 em diante. 

A linha 360 verifica se o jogador tem 
uma "mao de cinco cartas", colocan- 
do 1 em P5 e criando uma pausa, caso 
isto seja necessario. 

A linha 370 mostra o totaJ contido 
nas cartas do jogador (dois valores, se 
houver um as e o valor menor for infe- 
rior a 12). A aposta do jogador i impres- 
sa pela linha 380 e a quantidade de fi- 
chas pela linha 390. 



AS OPC^ES DO JOGADOR 



As opgSes de "parar", "comprar" 
ou "pedir" cartas sao oferecidas pelas 
linhas 400 a 420. As linhas 430 a 450 cui- 
dam das respostas do jogador. Se este 
tentar "comprar" cartas sem ter dinhei- 
ro para dobrar a aposta, a linha 460 tra- 
tari de informa-lo. A linha 470 acerta 
o valor da aposta e do total de fichas an- 
tes da linha 480 dar a prbxima carta. 

A condigao PT< 16 da linha 430 im- 
pede que o jogador "pare" sem ter pe- 
lo menos dezesseis pcntos. A linha 490 
e desnecessdria e so entrara em apao se 
essa condifao for raodificada. O progra- 
ma continua na linha 750, que avisa ao 
jogador o niimero de fichas restantes, 
verificando se a banca foi "quebrada". 
Se isso acontecer, um ruido serd pro- 
duzido. 

As linhas 760 a 780 oferecem ao jo- 
gador a opcao de jogar outra "mao". 



Para que o programa funcione no 
TK-20O0 sao necessarias algumas modi- 
ficafoes. Em primeiro lugar, daqui pa- 
ra a frente use apenas a MP (segunda 
pagina de video). Quando o programa 
estiver complete , qualquer retorno a 
MA (primeira pdgina de video) vai 
danificii-lo. Entao, primeiro digite MP 



e depois < RETURN > ; carregue o pro- 
grama inicial e fa?a as mesmas modifi- 
cagoes sugeridas para o Apple com ex- 
cegio das seguintes linhas: 

160 HGH2 

240 GOSUB aaOU: PRINT "VOCE TE 
M " ;PL; : TF PA = 1 THEN PRINT 
" OU 11": GOSUB 6000: GOTO 2,S0 
245 PRINT : GOSUB 6000 
250 GOSUB haOQ: PRINT "VOCE TE 
M ";MN;" FICHAS": GOBUB 6000 
260 GOSUB 5000: INPUT "(JUANTO 
VOCE APOSTA ?';BT: GOSUB 6000 
.360 GOSUB 5000: IF NC - 5 THEN 
PRINT "VOCE TEM UMA MAO DE CI 
NC0":P5 = 1: GOSUB 6000 GOTO 50 


370 PRINT "VOCE TEM "jPL;: IF 
PA = 1 AND PL < tZ THEN PRINT 
" OU ";PT: GOiSlJB 6000: GOTO 380 
375 PRINT : COSUB 6000 
380 GOSUB 50 00: PRINT "VOCE AP 
OSTOU ";BT: GOSUB 6000 
390 GOSUB 5000: PRINT "VOCE TE 
M ":MN;" FICHAS": GOSUB 6000 
400 GOSUB 5000: IF TW - THEN 

PRINT " {C)OMPRA OU " 
460 IF MN < OB THEN GOSUB 500 
0: PRINT "VOCE NAO TEM TANTO DI 
HHEIRO ASSIM": GOSUB 6000: GOTO 

400 
490 IF PT < 16 THEN GOSUB 500 
0: PRINT "VOCE NAO PODE PARAtl T 
ENDO APENAS " ; PT : CX - CX - 50: 
GOSUB 6000: GOTO 3 70 
650 GOSUB 5000: PRINT "VOCE TE 
M tJM NATURAL": GOSUB 6000 :PF » 
1 
660 GOSUB 4000: GOSUB 5000: IF 

DL = 11 THEN PRINT "MAS A BAN 
CA TEM A MESMA CO ISA" : GOSUB 60 
00: GOTO 610 

680 GOSUB 5000: PRINT "VOCE ES 
TOUEOU E PERDEU A APOSTA" : GOSU 
B 6000 

690 GOSUB 500 0: IF MN < L THEN 
PRINT "VOCE PERDEU TODAS AS F 
ICHAS": GOSUB 6000: GOTO 790. 
700 IF PF = J TKEN PRINT " EMB 
ARALHANDO AS CARTAS": GOSUB 150 
0: GOSUB 6000: GOTO 750 
750 GOSUB 5000: PBINT "VOCE TE 
H ";MN;" FTCHAS" : GOSUB 6000: I 
F MN > 999 THEN GOSUB 5000; PR 
INT "VOCE QUEBROU A BANCA" : FOR 

1 » 1 TO 2000: NEXT : GOTO 790 
760 GOSUS 500 0: PRINT "APEHTE 
<RETUHN> PAHA OUTRA MAO": GOSUB 

6000 
5000 HCOLOR- i : FOR J - 84 TO 
108: HPLOT , I TO 255.1: NEXT : 

HTAB 1: VTAB 12: RETURN 
6000 FOB I = I TO 1000: NEXT : 

RETURN 

Note que voce ter4 que procurar na 
listagem das modifica^oes para o Apple 
algumas linhas que nao estao aqul por 
falta de espago. A diferenga entre o pro- 
grama do Apple e do TK-2OO0 se deve 
ao fato de este ultimo nao possuir uma 
pdgina s6 para textos. Assim, as men- 
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sagens tergo que ser tmpressas na tela 
grifica. 

A sub-rotina da linha 5000 apaga 
qualquer coisa que tenha sido escrita an- 
tes e posiciona o cursor para a mensa- 
gem seguinte. A sub-rotina 6000 provo- 
ca uma pausa para que a mensagem pos- 
sa ser lida. No restante, o programa k. 
igual ao do Apple e as explicaQoes sao 
as mesmas. 

As linhas 220 e 300 sao um pouco di- 
ferentes das do Apple. Elas colocam as 
cartas da banca mais abaixo, abrindo 
um espa^o para que as mensagens sejam 
impressas na tela. 



Acrescente as pr6xiraas Itnhas ^que- 
las que digitou da outra vez: 

170 MN-a,00 

190 PCLS 6 

200 CX-6:CY-11:PL-0;DL-0:NC-2:D 

A-0:PA=-0:P5=0 rTW--0 :PF-0 : NA-N 

210 GOSUB 3000 

220 POKE 17B,156:D1-N:G0SUB 100 

0:LINE C6,10S)-(50,180) ,PSET,BF 

230 FOR K-1 TO 2000: NEXT 

240 CLS: PRINT" VOCE TEM" i PL ; : IF 

PA-1 THEN PRINT "OU 11" ELSE P 
RINT 

250 PRINT: PRINT" VOCE TEM";MN;" 
FICHAS" 

260 INPUT" FACA SUA APOSTA " ; ST 
270 BT^INTCBT} :IF BT<1 OR BT>MN 

THEN 240 
280 OB-BT:MN-MM-BT 
290 CX- 56: GOSUB 3000 I POKE 178,1 
S6 

300 D2»N:G0SUB 1000 : LINE (56 , 108 
)^ (100, 180) .PSET.BF 
310 FOR K-1 TO 2500:NEXT 
320 IF PL-11 AND PA-1 AND NC-2 
THEN 650 
330 CX-CX+50 

340 PT-PL+10*(PA AND(PL<12n 
350 IF PL>Z1 THEN 680 
360 CLS r IF NC-5 THEN PRINT" yOC 
E TEM UMA MAO DE CINCO" : P5-1 : FO 
H K-1 TO 15 00 : NEXT: GOTO 500 
370 PRINT" VOCE TEM^ipLiiIF PA- 
l AND PIX12 THEN PRINT "OU"iPT 
ELSE PRINT 

380 PRINT: PRINT- VOCE APOSTOU" ; 
BT 

390 PRINT: PRINT- VOCE TEM'sMN;" 
FICHAS" 

400 PRINT: IF TM-0 THEN PRINT" ( 
OOMPRA OU" : 

410 PRINT" tP}EDE MAIS CARTAS"; 
:IF PT>15 THEN PRINT' OU {S)ATI 
SFEITO"; 
420 PRINT • ?" 

430 AS-INKEYS:IF A$<>"P- AND (A 
SC>"S- OH PT<16) AND (AS<>"C" O 
R TW=1) THEN 430 
440 IF AS""S" THEN 490 
450 IF AS-'P" THEN TW-1:G0T0 48 

460 IF MN<OB THEN PRINT " VOCE 



NAO 



4?0 

480 

490 

NAO 



TEM TANTO DINHEIHO" : GOTO 40 



BT-BT+OB:MN-MN-OB 
NC-NC+1 :GOSUB 3000:GOTO 310 
IF PT<16 THEN PRINT " VOCE 
PODE PARAH AGORA- ;PT: CX-CX- 

50: GOTO 370 

500 GOTO 750 

650 CLS: PRINT" VOCE TEM UM NATU 

RAL-;FOR K-1 TO 1000 : NEXT: PF-1 : 

GOTO 190 

680 CLS: PRINT" VOCE ESTOUHOU E 

PERDEU A APOSTA" 

750 PRINT: PRINT" VOCE TEM";MN;" 

FICHAS" : PRINT: IF MN>999 THEN PR 

INT "MUITO BEM, VOCE QUEBROU A 

BANCA!" : SCREEN , 1 : PLAY "T6ADFBF 

EADC":GOTO 790 

760 PRINT: PRINT" PRESSIONE (SJ 

PARA RECOMECAR" 

770 IF INKEy$<>"S" THEN 770 

780 GOTO 190 

3000 SCREEN i,l:GOSUB 10O0:GOSU 

B 2000:IF NM>10 THEN PL-PL+10 E 

LSE PL-PL+NM 

3010 IF NM»=1 THEN PA=1 

3020 RETURN 

A linha 170 faz com que o niimero 
de fichas do jogador seja iguat a cem. 
A linha 190 limpa e di cor a tela. 

A linha 200 estabelece o valor inicial 
de uma serie de varidveis, CX e CY sao 
as coordenadas do canto superior es- 
querdo da carta. PL e DL sao, respecti- 
vamente, os totais de pontes do jogador 
e da banca. NC h o niimero de cartas de 
quern estiver jogando no momento, jo- 
gador OU banca. DA e PA sao indica- 
dores que passam a valer 1 se a banca 
OU o jogador tiverem um ds. P5 e um 
indicador que softer^ a mesma modifi- 
cacao case o jogador consiga uma "mao 
de cjnco cartas". TW e um indicador 
que passari a valer 1 quando o jogador 
"pedir" uma carta. Segundo as regras, 
a partir de entao ele nao poderi mais 
"comprar". PFe um indicador de "na- 
turais" e NA o mimero da primeira car- 
ta dada pela banca. 

A sub-rotina da linha 30O0 € chama- 
da pela linha 210. Uma carta 6 coloca- 
da no video. Se for maior que 10, o to- 
tal do jogador seraaumemado erp dez; 
caso contririo, o valor da carta ser^ so- 
mado aos pontes do jogador. Se a car- 
ta for um ^s, a linha 3010 colocard 1 no 
sinalizador de ases PA. 



A BANCA DA AS CARTAS 



Quando o programa retornar, a linha 
220 usard POKE para obter o padrao 
usado no reverse das cartas. Dl e a pri- 
meira carta da banca; a sub-rotina des- 
cobre seu valor e naipe. LINE desenha 
a carta e POKE cria o padrao. 

A linha 230 provoca uma pausa an- 



tes que a linha 240 limpe a tela e es- 
crcva total do jogador. O comando 
PRINT muda automaticamente a tela 
grafica para a tela de textos. Se a carta 
for um ds, aparecerd uma mensagem 
adicional "OU U". O niimero de fichas 
^ informado pela linha 250. 

A linha 260 cuida da aposta; a linha 
270 verifica se esta ^ valida; caso con- 
trdrio, ela deve ser refeita. A aposta 6 
subtraida das fichas do jogador pela li- 
nha 280. 

A seguir, a linha 290 chama as sub- 
rotinas que dao as cartas e a linha 300 
desenha a segunda carta da banca. 

A linha 320 verifica se o jogador tern 
um "natural" (isto i, 21 pontes em duas 
cartas), depois da pausa criada pela li- 
nha 310. Se houver um "natural", a li- 
nha 650 informar^ ao jogador, e o jogo 
comefara de novo. 

A linha 330 cuida da posicao da car- 
ta seguinte. Se o jogador tiver um is, o 
maior dos seus totais serd PT. Se nao 
houver ases, o mcnor (ou linico) total se- 
ra PL, Seeste for maior que 21, a linha 
680 informara ao jogador que houve um 
"estouro", e o programa \rk para a li- 
nha 750. A linha 350 verifica se o joga- 
dor tem uma "mao de cinco". Neste ca- 
so, o indicador PS sera ativado e uma 
pausa serd provocada antes de o jogo 
prosseguir. 

A linha 370 mostra o total dos pon- 
tes do jogador — dots valores, se hou- 
ver um ds e o vaJor menor for inferior 
a 12. A aposta e mostrada pela linha 3&0 
e as fichas remanescentes sao indicadas 
pela linha 390. 



AS OPCOES DO JOGADOR 



As opcoes de "parar", "comprar" 
OU "pedir" cartas sao oferecidas ao jo- 
gador pelas linhas 400 a 420. As linhas 
430 a 450 cuidam das respostas. Se o jo- 
gador tentar comprar cartas sem ter fi- 
chas suficientes para dobrar a aposta, 
a linha 460 dara o aviso. A linha 470 
atualiza o valor da aposta e do total de 
fichas, antes que a linha 480 de outra 
carta. 

Se o jogador tentar "parar" sem ter 
pelo menos dezesseis pontes, serd impe- 
dido pela condi^ao PT < 16 na linha 430. 
A linha 490 e desnecessdria e s6 entrard 
em asjao caso essa condifao seja modi- 
ficada. 

A linha 750 diz ao jogador quantas 
fichas sobraram e verifica se ele conse- 
guiu quebrar a banca. Se isso acontecer, 
haverd um efeito sonoro depois de uma 
mudanfa de ceres. 

As linhas 760 a 780 permitem ao jo- 
gador uma outra "mao". 
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Uma das caracteristicas da programa- 
gao consiste em que tudo o que nao es- 
teja gravado em fita ou no dlsquete tern 
que ser digitado. Freqiientemente, con- 
tudo, pode-se economizar tempo, mo- 
dificando programas j^ prontos ou com- 
bjnando dois (ou mais) programas para 
formar um terceiro. 

Existem basicamente duas maneiras 
de combinar programas. A primeira 
consiste em somar duas partes com mi- 
meros de linhas diferentes. A segunda, 
mais complexa, permite a uniao de pro- 
gramas com niimeros de linhas iguais. 
Neste curso, os dois metodos serao tra- 
tados simultaneamente. 



QUANDO COMBINAR 



Combinar programas {Merge t o ter- 
mo usado em ingles) e essencialmente 
um metodo de auxilio a programapao. 
Suponhamos, por exemplo, que voce te- 
nha feito um programa que nao funcio- 
na do mcdo esperado, ou que deseje al- 
tera-lo para que ele execute uma tarefa 
diferente daquela para a qual foi cria- 
do. A melhor maneira seria gravd-lo em 
fita ou disquete e continuar a trabalhar 
nele sem medo de danificar o original. 
Uma vez aperfeigoado, o programa es- 
taria, digamos, com o dobro do tama- 
nho original, ou teria ganho varios mo- 
dules diferentes. Em qualquer caso, as 
duas versoes podem ter elementos que 
voce deseje conservar, mas existem en- 
tre elas tantas difereni;as que seria mui- 
to difi'cil digitar cada coisa separada- 
mente. E ha mais um problema: a nao 
ser que voce coloque os dois programas 
no papel. e necessdrio ter tudo na me- 
moria para poder fazer as mudani;as na 
bora de combind-Ios. 

Outra situa^ao em que se torna ne- 
cessirio combinar programas 6 aquela 
em que se deseja incorporar rotinas ou 
procedimentos jd existentes a um novo 
programa, Estes podem ser longas roti- 
nas em c6digo de miquina que tocam 
uma mijsica, ou uma rotina que anima 
um desenho em alta resolufao, ou mes- 
mo uma rotina de detecfao de erros. 

A maioria dos prograraadores tem 
uma variada "bibiioteca" de sub-roti- 
nas, montadas ao longo dos anos e in- 




corporadas aos novos programas de 
acordo com as necessidades, Uma "bi- 
biioteca" desse tipo tem um valor ines- 
timave! pois, uma vez que as rotinas te- 
nham sido digitadas, testadas e grava- 
das, nao e necessdrio nem mesmo dese- 
jdvel redigitd-las toda vez que for pre- 
cise utiliza-las. Elas podem ser incorpo- 
radas ao programa por meio das ticni- 
cas de combina^ao. 

Esse recurso serve igualmente para 
enfileirar uma serie de pequenos progra- 
mas e executd-los seqiiencialmente. Nes- 
te caso, pode-se ter, por exemplo, uma 
s6rie que comece por uma sauda^ao inj- 
cial, seguida de um desenho multicolo- 
rido, e assim por diante. 

A ultima linha pode desviar o progra- 
ma para o ini'cio, provocando umaexe- 
cuv'ao continua. 



PftOGRAMACAO BASIC 



For que perder tempo digitando rotinas 
e programas \fS digitados e 
testados, se o computador pode fazer 
todo esse trabalho com 
a ajuda apenas de alguns comandos? 



PQR QUE JUNTAR PROGRAMAS 
COMO ACRESCENTAR 



SUB-ROTINAS PRE-FABRICADAS 

COMO COMBINAR VARIQS 

PROGRAMAS EM UM SC 




COMO COMBINAR 



Cada computador tetn seu prdprJo 
m^todo para fazer a conibina<;ao de pro- 
gramas. Alguns dispoem de um coman- 
do (MERGE) que se encarrega da tare- 
fa, fazendo com que o programa que es- 
tA na mem6ria seja retido enquanto ou- 
tro 6 carregado da fita ou disquele. Ja 
outros exigem que se digite algumas li- 
nhas de instrugao, ou se destine espafo 
na mem6ria para o segundo programa, 

Qualquer que seja o m^todo utiliza- 
do, no entanto, e necessario que os nu- 
meros de linhas sejam ajustados antes 
para que a combinagao se de da forma 
desejada. 

O ZX-81 € um caso especial, Ele nao 
tern um comando para fazer a combi- 
na(;ao e nao h& nenhuma tecnica razoa- 



veimente simples que permiia que dois 
programas sejam carregados na mem6- 
ria, Veja a secao Pergumas e respostas 
para maiores informa^oes. 



No Spectrum, a combina^ao de pro- 
gramas e feita por interm^dio do coman- 
do MERGE, que torna muito simples 
essa operapao. No entanto, e necess^io 
aten^ao com a numera?ao dos progra- 
mas a serem combinados. Por exemplo, 
para juntar uma sub-rotina de umas vin- 
te linhas a um programa maior, e preci- 
se deixar um espafo na numera^ao. As- 
sim, programa seria numerado de 10 
a 50, digamos, e de 300 a 1000, e a 
sub-rotina de 60 a 250. 

Outra possibilidade e dar a sub-rotina 
uma numeragao superior k do progra- 
ma. Com um pouco de cuidado, pode- 
se arranjar as coisas de tal forma que, 
com a substituigao de algumas linhas 
por outras, e a incorpora?io de novas 
linhas, obtenha-se um novo programa. 

Agora, digite e execute o programa 
a seguir, Ele mostra quadrados colori- 
dos em posigoes aleat6rias. Mais adian- 
te, voce vera como combina-lo com ou- 
tro programa: 

ID BOftDER 0: IMK 9 

50 PAPER 

60 CLS 

70 FOB n-1 TO 400 

80 LET x-INT (RND«32) 

90 LET y-INT (BND*22) 
100 PAPER 7: IF x>8 AND x<24 
AND y>6 AND Y<16 THEN PAPER 4 
110 PRINT AT y.x;" " 
120 NEXT n 

Grave o programa (com o titulo de 
SQl , por exemplo). E nao desconecte o 
gravador — vocS ainda vat precisar de- 
le. Note que qualquer outro programa 
que voce yh tenha serviria para nossa de- 
monstragao. Digite NEW e em seguida 
o pr6ximo programa: 

10 BORDER 0: PAPER 0: INK 9: 

CLS 

30 FOR t-1 TO 5 
40 INK INT tRND*6)+2 
60 PRINT AT t.Oi'ISTO E tm TE 
STE" 
130 NEXT t 




Existe uma forma simples de combi- 
nar programas no ZX-81? 

Infelizmente, nao. Isso pode ser fei- 
to em linguagem de mSquina, mas d 
programa 6 bem complicado. 

O ZX-81 nao tern um comando 
MERGE e nao exists nenliuma forma 
em BASIC de carregar dois programas 
na mem6ria ao mesmo tempo (todos os 
programas sao carregados no mesmo 
endere^o da memdria). Assim, ao se 
carregar um programa, inevitavelmen- 
te se destr6i o anterior. 



Este ^ um programa muito simples, 
que mostra uma mensagem (tinha 60) 
cinco vezes. Agora digite MERGE"" 
para combin^-lo com o anterior (nao se 
esque<;a de retroceder a fita at^ o inicio 
do programa). O programa da fita sera 
entao adicionado ao da memdria do mi- 
cro. Liste o novo programa e observe 
que as iinhas 10 e 60 foram substituidas, 
enquanto as Iinhas 50 e de 70 a 120 fo- 
ram acrescentadas. Execute o programa 
para ver o procedimento inicial (SQl) 
executado cinco vezes. 

Como nao e muito facil renumerar 
programas no Spectrum, conv^m ajus- 
tar a numera^ao das Iinhas antes de 
combinar os programas. 



O TRS-Color permite a jun?ao de 
programas em seqtiencia, mas nao a so- 
breposi<;ao de Iinhas, 

Digite e execute o programa seguin- 
te, que coloca quadradinhos coloridos 
em Areas retangu tares da tela. 

10 PCLEAR 4 

20 FOB T"l TO 5 

30 CLS 

40 FOR N-1 TO 400 

50 X"ENDC32)-1 

60 Y-RNDC16)-1 

70 IF X<6 OH X>25 OH Y<4 OR ¥>! 

1 THEN C-175 ELSE C-'255 

80 POKE 1024+Y*32+X,C 

90 NEXT 

10 NEXT 

Agora, grave o programa (como 
SQl, por exempfo). para que ele possa 

ser carregado novamente na mem6ria. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado, 



Digite o comando NEW e, era segui- 
da, o pr6ximo programa: 

10 PCLEAR 4 

20 CLS 

30 PRINT §192, STRINGS {32, CHR3 (2 

36) ) ; 

40 PRINT ' BENUINDO A UM DISPLA 

Y COLORIDO" 

50 PRINT STRING$02,CHRS(163)) 

O programa imprime uma mensagem 
na tela (linha 40). Para juntar a ele o 
programa que vocS jd gravou, entre as 
iinhas a seguir: 

POKE 25,PEEKC27) 
POKE 26,PEEK(28)-2 

Em seguida, carregue o programa da 
fita (SQl) e entre estas instru^oes: 

POKE 25,30 
POKE 26,1 

Ao listar o novo programa, ele apa- 
receri com niimeros de linha de 10 a 50 
e a seguir de 10 a 100. Digite RENUM 
para renumerar o programa e liste-o no- 
vamente; voce verd algo como: 

10 PCLEAR 4 
20 CLS 

30 PRINT #192, STRINGS ( 32, CHR$ (2 

36)) ; 

40 PRINT " BENVINDO A UU DISPLA 

Y COLOR I DO" 

60 PRINT STRINGS (32. CHBS (163)) 

60 PCLEAR 4 

70 FOR T-1 TO 5 

80 CLS 

90 FOR N-1 TO 400 

100 X-HND(32)-1 

110 Y-RND(16)-1 

120 IF X<6 OR X>25 OR Y<4 OR Y> 

11 THEN C-175 ELSE C-255 
130 POKE 1024+Y*32+X,C 
140 NEXT 

150 NEXT 

A primeira parte do programa e exe- 
cutada rapidamenie. Para separa-la da 
segunda parte, mude a linha 60 para: 

60 FOB K-1 TO 2000: NEXT 



O MSX d outro computador que 
aprc-senta grande facilidade para com- 
bina^ao de programas. Como o Spec- 
trum, ele possui o comando MERGE, 
que se encarrega de todo o trabalho, 

Todavia, e sempre importante tomar 
cuidado com a numera^ao das Iinhas. 
pois, se existiremllinhas de mesmo nume- 
ro nos dois programas a serem unidos, 
aquelas que vem do programa que € car- 
regado da fita substituirao as da mem6- 
ria. Assim, deve-se sempre deijtar espa- 
po suficiente no programa que vai rece- 
ber o novo trecho para que nao se per- 
cam Iinhas. 



Digite o programa apresentado a se- 
guir. Ele desenhard quadradinhos colo- 
ridos em determinada regiao da tela, Em 
seguida grave-o na fita, usando o co- 
mando SAVE (e nao CSAVE). Chame- 
o, por exemplo, de SQl. 

60 R=RND(-TIME) 

70 SCREEN3 

BO COLOR 15,R*15 

90 FORI-1TO400 

100 X-INT(RND(1)*256) 

110 y-INT(RND(l)*192) 

120 IFX<36OHX>210OBy<20OR?>110T 

HENIOO 

130 PSETtX.Y) ,aND{l)»15 

140 NEXT 

Quando tiver lerminado a grava^ao 
do programa, digite NEW e, sem desco- 
nectar o gravador do micro, coloque es- 
te outro programa no sen computador: 

10 CLS 

20 PBINTSTRINGS(39,36) 

30 PHINTTAB(IO) ; "VEJA QUE BELO 

EFEITO!" 

40 PRINT:PRINTSTRINGS(39,36) 

50 FORJ=lTO500:NEXT 

150 SCREENO 

160 PRTNTSTRING3(39,123) 

170 PHINTTABdO) ;"ACAB0U1 ! !' 

Este 6 um programa muito simples, 
que coloca duas mensagens na tela. So- 
zinho, nao quer dizer muita coisa; mais 
adiante, porem, voc§ podera avaliar sua 
importancia. 

Agora, rebobine a fita para posicio- 
ni-la no inicio do programa anterior. 
Digite MERGE"SOL". Em seguida, di- 
gite LIST. Veja que os dois programas 
estao juntos, o primeiro colocado den- 
tro do segundo. 

Como o MSX tambem oferece o co- 
mando RENUM, voce nao tera dificul- 
dade para fazer com que os niimeros das 
Iinhas dos programas sejam os mais ade- 
quados ks combinacoes que quiser fazer. 



O Apple II nao tern o comando MER- 
GE no BASIC; mas, para quem traba- 
Iha com uma unidade de disco, existe 
um programa no disco-mestre do siste- 
ma operacional que renumera as Iinhas 
de um programa em BASIC e permite 
que ,se fafa a combinagao de programas. 
Para trabalhar com ele, basta seguir as 
instrutoes do manual. 

Aqui, mostraremos duas outras for- 
mas de se combinar programas. A pri- 
meira e destinada a quem trabaiha com 
disquetes. Essa t^cnica aproveita a fa- 
cilidade do Apple para ler um arquivo 
texto, simulando entradas de teclado. 
Pode-se guardar, assim, uma s^rie de 
instru^oes (uma rotina de ordenapao, 
por exemplo) na forma de um arquivo 
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texto e, por meio do comando EXEC, 
fazer com que a rotina seja adicionada 
ao programa da memoria. Tudo funcio- 
na como se a rotina tivesse sido digita- 
da no teciado. Vejamos como isso acon- 
tece. Digite o programa a seguir: 

1 DS - CHRS (4> 

2 PRINT DSi'OPEN TEXT" 

3 PRINT DS: "WRITE TEXT' 

4 POKE 33,33: LIST 10 - 

5 PRINT DS; "CLOSE": POKE 33.40 
: END 

100 DS - CHRS (4) 
110 PRINT DSf'OPEN TEXT" 
PRINT D$! "WRITE TEXT" 
POKE 33.33: LIST - 5 
PRINT DS; "CLOSE": POKE 33. 



120 
130 

140 
40 



Depois de digita-lo, execute-o a par- 
tir da linha 100 (RUN 100). Isto fara 
com que seja criado um arquivo texto 
no seu disco que contem as linhas 1 a 
5. Ao verificar o diretorio (catilogo) do 
disco (CATALOG), voce vera que o 
arquivo tern o nome de TEXT. Modi- 
fique-o para MERGE e voce se iem- 
isrard facilmente do nome (RENAME 
TEXT, MERGE). Agora digite NEW e 
a seguir o proximo programa: 



40 GR 

50 FOB I - 1 TO 500 

60 COLOR= RND (I) * 



16 



90 PLOT X.Y 
100 NEXT 

70 X - RND (1) * 40 
80 Y - HND (1) * 40 

O programa mostra uma grande quan- 
tidade de quadrados coloridos na tela; 
€ bem simples, mas serviri para a nossa 
demonstragao. Agora digite MON C,I,0 
e depois EXEC MERGE. Voce veri as 
linhas 1 a 5 do programa anterior apa- 
recerem na tela. Liste o programa e ve- 
rifique se as linhas que voce havia digi- 
tado ainda estao la. Dessa forma, voce 
jA conseguiu combinar dois programas: 
o que desenha na tela e o outro, que po- 
de nao Ihe parecer muito ciaro. Agora, 
vamos explica-lo melhor. A primeira li- 
nha apenas define a variave! D$ como 
o caractere de c6digo 4; este indica ao 
computador que um comando do siste- 
ma operacional esta sendo usado. A se- 
guir, um arquivo e aberto e preparado 
para receber dados (linhas 2 e 3). A linha 
4 coloca a listagem do programa nesse 
arquivo, a partir da linha 10. O arqui- 
vo e entao fechado e termina a rotina. 

A vantagera dessa operagao consiste 
em que uma rotina assim armazenada 
pode ser adicionada a qualquer progra- 
ma com apenas um comando. 

Para compreender melhor, digite RUN. 
Nossa pequena rotina sera executada e 
o programa que coloca os quadrados co- 
loridos na tela serd armazenado no ar- 




Se o seu micro tem um comando pa- 
ra a renumera(pao de linhas, use-o pa- 
ra que o programa comece em uma de- 
terminada linha e tenha um incremen- 
to constante. Se vocS nao tem o pro- 
grama, a renumeraglo deve ser feita 
manualmente; mas tome cuidado com 
todas as linhas referenciadas em ins- 
trupoes GOTO ou GOSUB e ON. ..GO- 
TO ou ON., .GOSUB. 



quivo de nome TEXT. A medida que 
outras rotinas forem sendo guardadas, 
6 necessdrio dar a elas novos nomes co- 
mo foi feito com MERGE. Agora digi- 
te NEW e a seguir o proximo programa; 



10 HOME 
20 PRINT 
DO MERGE 
30 FOB I 
110 TEXT 



DEMONSTRACAO 



" 1 TO 2000: NEXT 
: GOTO 10 

Este programa imprime apenas duas 
mensagens na teta. Para uni-lo ao pro- 
grama dos quadradinhos, voce deve di* 
gitar EXEC TEXT. Feito isso, os dois 
programas podem ser executados como 
se fossem um &6. 





SE6UND0 MiTODO 



Para quern nao tern uma unidade de 
disco, ha um outro m^todo, mais rudi- 
mentar, que tambera permite a combi- 
nafao de programas. Esse metodo co- 
loca um programa apbs o outro, blo- 
queando a mlstura de linhas de nume- 
ros variados. Assim, o programa da me- 
mdria deve ter numeratao inferior ao 
daqueie que vai ser carregado da fita. 

Digite inicialmente as linhas de 40 a 
100 do programa anterior. A seguir, gra- 
ve-o em fiia. Limpe a memoria do mi- 
cro (NEW) e digite as linhas de 10 a 30. 
Nao digite a linha 1 10, Agora execute 
as seguintes instrupoes; 

E-PEEK(106)*256+PEEK{105)-2 

POKE 104,INT(E/256) 

POKE 103,E-PEEK(104)*256 



Carregue o programa da fita com 
o comando LOAD 

POKE 104, a 
POKE 103,1 
LIST 

E temos os dois programas juntos. 



Os microcomput adores compativeis 
com a linha TRS-80 que dtspoem de BA- 
SIC para disco (ou seja, sob o sistema 
operacional DOS) jd tem os comandos 
MERGE — destinado a combinar pro- 
gramas (com possibifidade de substitui- 
?ao de linhas e de inser<;ao de linhas in- 
termedidrias) — e RENIJM, que permite 
a renumeragao das linhas do programa 
resultante. Assim, e muito fdcil fundir 



dois ou mais programas em rotinas em 
BASIC: basta carregar ou digitar o pri- 
meiro programa na memoria (atraves de 
um comando LOAD) e, em seguida, di- 
gitar um comando MERGE "nome", 
para especificai a denominaijao do pro- 
grama a ser fundido com o primeiro. 

O TRS-80 na versao cassete nao tem 
o comando MERGE; para combinar 
programas nessc micro sao necessarios, 
portanto, alguns "truques" especiais. 
Esses "truques", contudo, permitem 
apenas que se juntem programas em se- 
qiiencia, isto e, um depois do outro, im- 
pedindo a superposi^ao de linhas. 

Digite e execute c programa seguin- 
te, que coloca uma mensagem- v^as ve- 
zes na tela: 

100 CLS 

110 FOR r-1 TO 5 

120 PRINT "GOSTOU DO TESTE ?" 

IJO NEXT I 

Agora, grave o programa (como 
SQl, por exemplo), para que ele possa 
ser carregado novamente na mem6ria. 
Ele poderia ser uma longa sub-rotina ou 
parte de um programa inacabado. 

Digite NEW e depois o programa a 
seguir, que serve para preencher a tela 
com quadradinhos ao acaso: 

10 RANDOM 

20 FOR T=l TO 5 

30 CLS 

40 FOR N=l TO 400 

50 X=RND<64}-1 

60 y=RND(16>-l 

70 SET CX.Y) 

80 NEXT N 

90 NEXT T 

Ele imprime uma mensagem na tela. 
Para juntar o programa que voce ja gra- 
vou, entre a linha a seguir: 

PRINT PEEK (16633) 

Se o resuUado mostrado na tela for 
menor do que 2, digite as linhas abaixo; 

POKE 16548, PEEK{16633)+254 
POKE 16549, PEEK £16634)-! 

Entretanto, se o resuUado for maior 
ou igua! a 2, digite estas linhas: 

POKE 16548. PEEKa6633)-2 
POKE 16548. PEEK fl6634) 

A seguir, carregue o programa da fi- 
ta (SQl), usando o comando CLOAD, 
e entre estas instrufOes; 

POKE 16548, 2 33: POKE 16549,66 

Ao listar o novo programa, ele apa- 
recerd com niimeros de linha de 10 a 70 
e a seguir com os niimeros de lOO em 
diante. Liste-o novamente, e voce vera 
o programa inteiro. 
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^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 
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-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMACAO BASIC 

As rotinas de ordenacao benefictam todo tipo de programa que 
manipula dados. Tres metodos infalfveis. 

CODIGO DE MAQUINA 

Aprenda a desenhar no video um dragao que cospe fogo e viva novas aventuras. 

PROGRAMAQAO BASIC 

Comandos GET e PUT: com ales voce pode armazenar figuras em 
matrizes e traze-las de volta a tela. 

PROGRAMACAO DE JOGOS 

Como ensinar seu computador a "bancar" o jogo 
de vinte-e-um. 
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